Skip to content
Snippets Groups Projects
Commit 32080acb authored by toy's avatar toy
Browse files

Rename &parse-body to ext::&parse-body so pmai's scripts work.

(exports.lisp is loaded too late for this to get the right value of
&parse-body.)
parent 0f84433a
No related branches found
No related tags found
No related merge requests found
......@@ -82,11 +82,11 @@
;; a symbol following &body, there could be a list of up
;; to three elements which will be bound to the body,
;; declarations, and doc-string of the body.
((eq var '&parse-body)
((eq var 'ext::&parse-body)
(unless (and (cdr rest-of-args)
(consp (cadr rest-of-args))
(symbolp (caadr rest-of-args)))
(simple-program-error "Invalid ~a" '&parse-body))
(simple-program-error "Invalid ~a" 'ext::&parse-body))
(setf rest-of-args (cdr rest-of-args))
(setf restp t)
(let ((body-name (caar rest-of-args))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment