Changeset 6047

Timestamp:

Mar 16, 2007, 11:40:29 PM (18 years ago)

Author:

Gary Byers

Message:

$fasl-timm: if this is still used, an :int will do (no need for :long).

File:

• branches/objc-gf/ccl/level-0/nfasload.lisp (modified) (1 diff)

branches/objc-gf/ccl/level-0/nfasload.lisp

@@ -477 +477 @@
 
 (deffaslop $fasl-timm (s)
-  (rlet ((p :long))
+  (rlet ((p :int))
     (setf (%get-long p) (%fasl-read-long s))
     (%epushval s (%get-unboxed-ptr p))))