Skip to content
Snippets Groups Projects
Commit a769457e authored by ram's avatar ram
Browse files

COMPACT-INFO-ENV is pure.

parent bf88bd61
Branches
Tags
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/globaldb.lisp,v 1.26.1.4 1993/02/08 22:06:57 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.26.1.5 1993/02/23 11:56:59 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -526,6 +526,7 @@ ...@@ -526,6 +526,7 @@
;;; ;;;
(defstruct (compact-info-env (defstruct (compact-info-env
(:include info-env) (:include info-env)
(:pure t)
(:print-function %print-info-environment)) (:print-function %print-info-environment))
;; ;;
;; If this value is EQ to the name we want to look up, then the cache hit ;; If this value is EQ to the name we want to look up, then the cache hit
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment