Commit 85434943 authored by Juan Jose Garcia Ripoll's avatar Juan Jose Garcia Ripoll
Browse files

Constants are always produced as fresh new locations so that we do not...

Constants are always produced as fresh new locations so that we do not overwrite the parent and other fields
parent 3689a777
......@@ -23,7 +23,7 @@
(setf x (cdr x))
(if (listp x)
(c1expr x)
x))))
(copy-structure x)))))
((eq val nil) (c1nil))
((eq val t) (c1t))
((sys::fixnump val)
......
......@@ -42,9 +42,9 @@
form))
(defvar *c1nil* (make-c1form* 'LOCATION :type (object-type nil) :args nil))
(defun c1nil () *c1nil*)
(defun c1nil () (copy-structure *c1nil*))
(defvar *c1t* (make-c1form* 'LOCATION :type (object-type t) :args t))
(defun c1t () *c1t*)
(defun c1t () (copy-structure *c1t*))
(defun c1call-symbol (fname args &aux fd)
(cond ((setq fd (get-sysprop fname 'c1special)) (funcall fd args))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment