work-around destructive modification of slot-descriptions in t1define-structure - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

work-around destructive modification of slot-descriptions in t1define-structurebit_access

-rwxr-xr-x

1 files changed, 1 insertions, 1 deletions

diff --git a/gcl/cmpnew/gcl_cmptop.lsp b/gcl/cmpnew/gcl_cmptop.lsp
index 6341117fd..c0b490099 100755
--- a/gcl/cmpnew/gcl_cmptop.lsp
+++ b/gcl/cmpnew/gcl_cmptop.lsp

@@ -1457,7 +1457,7 @@

(setf (get 'si::define-structure 't1) 't1define-structure)

(defun t1define-structure (args)

- (maybe-eval t `(si::define-structure ,@args ,(not (maybe-eval nil nil))))

+ (maybe-eval t `(si::define-structure ,@(copy-tree args) ,(not (maybe-eval nil nil))));FIXME

(t1ordinary (cons 'si::define-structure args)))

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月01日 18:23:49 +0000