Commit bbb5e527 authored by ram's avatar ram
Browse files

Merged William's change to load-time-value to not include make-value-cell

in the name.
parent dbfbf11f
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.75 1992/09/23 17:05:30 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.76 1992/09/23 17:09:48 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1069,7 +1069,11 @@ ...@@ -1069,7 +1069,11 @@
(defun compile-load-time-value (defun compile-load-time-value
(form &optional (form &optional
(name (let ((*print-level* 2) (*print-length* 3)) (name (let ((*print-level* 2) (*print-length* 3))
(format nil "Load Time Value of ~S" form)))) (format nil "Load Time Value of ~S"
(if (and (listp form)
(eq (car form) 'make-value-cell))
(second form)
form)))))
(let ((lambda (compile-load-time-stuff form name t))) (let ((lambda (compile-load-time-stuff form name t)))
(values (values
(fasl-dump-load-time-value-lambda lambda *compile-object*) (fasl-dump-load-time-value-lambda lambda *compile-object*)
......
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