minor fixes

dtqec · Nov 12, 2023 · 8d19dcc · 8d19dcc
1 parent 73bd3e9
commit 8d19dcc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/process/process.lisp b/src/process/process.lisp
@@ -163,12 +163,13 @@ WARNING: These actions are to be thought of as \"interrupts\". Accordingly, you
               ((and (symbolp clause) (string= "CALL-NEXT-METHOD" (symbol-name clause)))
                `(multiple-value-bind (,results ,trapped?) (call-next-method)
                   (when ,trapped?
-                    (return-from message-dispatch (values ,results ,trapped?)))))
+                    (return-from %message-dispatch (values ,results ,trapped?)))))
               (t
                (error "Bad DEFINE-MESSAGE-DISPATCH clause: ~a" clause))))
           clauses))))
 
 (defun message-dispatch (node now)
+  "Use DEFINE-MESSAGE-DISPATCH to install methods here."
   (multiple-value-bind (results trapped?) (%message-dispatch node now)
     (when trapped?
       (return-from message-dispatch (values results trapped?)))