X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbackend.lisp;h=5cba2ab58befeb1ef0ef97743152a645cab07db6;hb=0bca0cb1bf5ce5572ab5cd7ba59f87fed1f2edb0;hp=04c4e3510c1af48df08629ace4a33229dd4d1998;hpb=0a82f2db352cc348d2107a882e50af222ff97ed3;p=sbcl.git diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp index 04c4e35..5cba2ab 100644 --- a/src/compiler/backend.lisp +++ b/src/compiler/backend.lisp @@ -151,19 +151,19 @@ (eval-when (:compile-toplevel :load-toplevel :execute) (defparameter *vm-support-routines* ',routines)) (defstruct (vm-support-routines (:copier nil)) - ,@(mapcar #'(lambda (routine) - `(,routine nil :type (or function null))) + ,@(mapcar (lambda (routine) + `(,routine nil :type (or function null))) routines)) ,@(mapcar - #'(lambda (name) - `(defun ,name (&rest args) - (apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" - name) - *backend-support-routines*) - (error "machine-specific support ~S ~ + (lambda (name) + `(defun ,name (&rest args) + (apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" + name) + *backend-support-routines*) + (error "machine-specific support ~S ~ routine undefined" - ',name)) - args))) + ',name)) + args))) routines)))) (def-vm-support-routines @@ -180,12 +180,12 @@ make-call-out-tns ;; from call.lisp - standard-argument-location + standard-arg-location make-return-pc-passing-location make-old-fp-passing-location make-old-fp-save-location make-return-pc-save-location - make-argument-count-location + make-arg-count-location make-nfp-tn make-stack-pointer-tn make-number-stack-pointer-tn