From 32080acb023c8e12823d44ac5fb5ad6eb5cd3716 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Sun, 20 Apr 2003 22:21:00 +0000 Subject: [PATCH] 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.) --- bootfiles/18e/boot5.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bootfiles/18e/boot5.lisp b/bootfiles/18e/boot5.lisp index 29de968bd..ea0aff0cc 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)) -- GitLab