Skip to content
Snippets Groups Projects
Commit 0999448a authored by wlott's avatar wlott
Browse files

Oops, need to actually stick the value-cell in the constants pool, instead

of just computing it and dropping it on the floor.
parent 8ac7901c
No related branches found
No related tags found
No related merge requests found
...@@ -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/generic/core.lisp,v 1.27 1993/08/31 07:41:17 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/core.lisp,v 1.28 1993/09/01 03:18:32 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -186,12 +186,13 @@ ...@@ -186,12 +186,13 @@
(setf (code-header-ref code-obj index) (setf (code-header-ref code-obj index)
(lisp::fdefinition-object (cdr const) t))) (lisp::fdefinition-object (cdr const) t)))
(:dylan-varinfo-value (:dylan-varinfo-value
(locally (setf (code-header-ref code-obj index)
(declare (optimize (inhibit-warnings 3))) (locally
(dylan::lookup-varinfo-value (declare (optimize (inhibit-warnings 3)))
(cadr const) (dylan::lookup-varinfo-value
(dylan::find-module (cddr const)) (cadr const)
t)))))))))) (dylan::find-module (cddr const))
t)))))))))))
(undefined-value)) (undefined-value))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment