Changeset 5056

Timestamp:

Aug 28, 2006, 3:30:54 PM (18 years ago)

Author:

Gary Byers

Message:

xloader was missing a few new ops.

File:

• trunk/ccl/xdump/xfasload.lisp (modified) (2 diffs)

trunk/ccl/xdump/xfasload.lisp

@@ -1107 +1107 @@
       str)))
 
+(defxloadfaslop $fasl-nvstr (s)
+  (let* ((n (%fasl-read-count s)))
+    (multiple-value-bind (str v o) (xload-make-ivector *xload-readonly-space* :simple-string n)
+      (%epushval s str)
+      (dotimes (i n)
+        (setf (u8-ref v (+ o i *xload-target-misc-data-offset*))
+              (%fasl-read-count s)))
+      str)))
 
 ;;; Allegedly deprecated.
@@ -1166 +1174 @@
   (%xload-fasl-vmake-symbol s))
 
+(defxloadfaslop $fasl-nvmksym (s)
+  (%xload-fasl-nvmake-symbol s))
+
 (defxloadfaslop $fasl-vmksym-special (s)
   (%xload-fasl-vmake-symbol s t))
+
+(defxloadfaslop $fasl-nvmksym-special (s)
+  (%xload-fasl-nvmake-symbol s t))
 
 (defun %xload-fasl-vintern (s package &optional idx)