diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp index 2048cb036152a30bf4520b118b6130dcc5ad4e00..7a3a06e6f1f5e3d634614628c538b1e4425c9229 100644 --- a/compiler/generic/new-genesis.lisp +++ b/compiler/generic/new-genesis.lisp @@ -4,7 +4,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.73 2004/09/08 02:10:55 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.74 2004/09/21 11:59:52 emarsden Exp $") ;;; ;;; ********************************************************************** ;;; @@ -59,6 +59,9 @@ (eval-when (compile eval load) +(defvar *nil-descriptor* nil + "Handle on Nil.") + (defconstant descriptor-low-bits 16 "Number of bits in the low half of the descriptor") @@ -274,9 +277,6 @@ (make-other-immediate-descriptor 0 vm:unbound-marker-type) "Handle on the trap object.") -(defvar *nil-descriptor* nil - "Handle on Nil.") - (defvar *current-init-functions-cons* nil "Head of list of functions to be called when the Lisp starts up.") @@ -1915,6 +1915,8 @@ version))) (defun lookup-foreign-symbol (name &optional (link-type :code)) + #-linkage-table + (declare (ignore link-type)) (flet ((lookup-sym (name) #-linkage-table (gethash name *cold-foreign-symbol-table* nil)