doc/sod.sty: Hack underscores in the labels generated by `describe'.

[sod] / src / output-impl.lisp

diff --git a/src/output-impl.lisp b/src/output-impl.lisp
index 30d0c805f6ec55756a2889b2f6d8354c8ad343db..df42115b25aeac1801dfc450c34b867b52b54c9e 100644 (file)
--- a/src/output-impl.lisp
+++ b/src/output-impl.lisp
@@ -35,8 +35,7 @@ (defmethod print-object ((item sequencer-item) stream)
 (defmethod ensure-sequencer-item ((sequencer sequencer) name)
   (with-slots (table) sequencer
     (or (gethash name table)
 (defmethod ensure-sequencer-item ((sequencer sequencer) name)
   (with-slots (table) sequencer
     (or (gethash name table)

-       (setf (gethash name table)
-             (make-instance 'sequencer-item :name name)))))
+       (setf (gethash name table) (make-sequencer-item name)))))

 
 (defmethod add-sequencer-constraint ((sequencer sequencer) (constraint list))
   (let ((converted-constraint
 
 (defmethod add-sequencer-constraint ((sequencer sequencer) (constraint list))
   (let ((converted-constraint