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