Changeset 8061

Timestamp:

Jan 12, 2008, 12:01:30 AM (17 years ago)

Author:

R. Matthew Emerson

Message:

Set up NIL.

File:

• branches/ia32/xdump/xx8632-fasload.lisp (modified) (1 diff)

branches/ia32/xdump/xx8632-fasload.lisp

@@ -21 +21 @@
   #xc7cd0000000000)                     ;uuo-error-udf-call
 
-;;; xxx just a guess
 (defun x8632-initialize-static-space ()
   (xload-make-ivector *xload-static-space*
-                      (xload-target-subtype :unsigned-32-bit-vector) 
-                      (1- (/ 4096 4))))
+                      (xload-target-subtype :unsigned-32-bit-vector)
+                      (1- (/ 4096 4)))
+  (xload-make-cons *xload-target-nil* *xload-target-nil* *xload-static-space*))
 
 (defparameter *x8632-darwin-xload-backend*