Changeset 10524


Ignore:
Timestamp:
Aug 22, 2008, 1:56:55 PM (11 years ago)
Author:
gb
Message:

Bump fasl version (by 3, if anyone's counting.)
Make fasl-dispatch functions have names (to aid in debugging.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/xdump/faslenv.lisp

    r9578 r10524  
    3939
    4040
    41 
    4241(defconstant numfaslops 80 "Number of fasl file opcodes, roughly")
    4342(defconstant $fasl-epush-bit 7)
    4443(defconstant $fasl-file-id #xff00)
    4544(defconstant $fasl-file-id1 #xff01)
    46 (defconstant $fasl-vers #x53)
    47 (defconstant $fasl-min-vers #x53)
     45(defconstant $fasl-vers #x56)
     46(defconstant $fasl-min-vers #x56)
    4847(defconstant $faslend #xff)
    4948(defconstant $fasl-buf-len 2048)
    5049(defmacro deffaslop (n arglist &body body)
    5150  `(setf (svref *fasl-dispatch-table* ,n)
    52          #'(lambda ,arglist ,@body)))
     51         (nfunction ,n (lambda ,arglist ,@body))))
    5352
    5453
     
    126125(defconstant $fasl-istruct-cell 71)     ;<expr> register istruct cell for expr
    127126
     127
    128128;;; <string> means <size><size bytes> (this is no longer used)
    129129;;; <size> means either <n:byte> with n<#xFF, or <FF><n:word> with n<#xFFFF or
Note: See TracChangeset for help on using the changeset viewer.