diff --git a/bootfiles/18e/boot5.lisp b/bootfiles/18e/boot5.lisp index 29de968bd26716e9b547a81730766b978fbf930d..ea0aff0ccdb94d695361f9b0828809c7883704f0 100644 --- a/bootfiles/18e/boot5.lisp +++ b/bootfiles/18e/boot5.lisp @@ -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))