(inst cmp al-tn list-pointer-lowtag)
(inst jmp :e loop)
;; It's dotted all right. Flame out.
- (error-call vop object-not-list-error ptr)
+ (error-call vop 'object-not-list-error ptr)
;; We be done.
DONE))
(inst jmp :ne loop)
DONE))
-(define-static-function length (object) :translate length)
+(define-static-fun length (object) :translate length)
+(define-static-fun %coerce-callable-to-fun (callable)
+ :translate %coerce-callable-to-fun)