;; Make sure the function is aligned, and drop a label pointing to this

     ;; function header.

     (align vm:lowtag-bits)

     (trace-table-entry trace-table-function-prologue)

     (emit-label start-lab)

     ;; Allocate function header.

   (:info nargs)

   (:results (res :scs (any-reg)))

   (:generator 2

     (when (> nargs register-arg-count)

       (move res csp-tn)

       (inst add csp-tn csp-tn (* nargs vm:word-bytes)))))

 		     15

 		     (if (eq return :unknown) 25 0))

        (trace-table-entry trace-table-call-site)

        (let* ((cur-nfp (current-nfp-tn vop))

 	      ,@(unless (eq return :tail)

 		  '((lra-label (gen-label))))

   (:vop-var vop)

   (:save-p :compute-only)

   (:generator 3

     (let ((err-lab

 	   (generate-error-code vop invalid-argument-count-error nargs)))

       (inst cmp nargs (fixnumize count))

 (define-vop (boundp boundp-frob)

   (:translate boundp)

   (:generator 9

     (loadw value object vm:symbol-value-slot vm:other-pointer-type)

     (inst cmp value vm:unbound-marker-type)

     (inst b (if not-p :eq :ne) target)

 			  (- other-pointer-type

 			     function-pointer-type

 			     (label-position label posn delta-if-after)

 ;; code = lra - other-pointer-tag - header - label-offset + other-pointer-tag

 (define-instruction compute-code-from-lra (segment dst src label temp)

   (:variant-vars offset lowtag)

   (:policy :fast-safe)

   (:generator 4

     (storew value object offset lowtag)))

 ;;; Slot-Ref and Slot-Set are used to define VOPs like Closure-Ref, where the

   ((null immediate zero)

    (any-reg descriptor-reg))

   (let ((val (tn-value x)))

     (etypecase val

       (integer

        (inst li y (fixnumize val)))

   (:temporary (:scs (non-descriptor-reg)) temp)

   (:results (y))

   (:generator 0

     (sc-case y

       ((any-reg descriptor-reg)

        (move y x))

   (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)

   (:vop-var vop)

   (:generator 100

     (let ((cur-nfp (current-nfp-tn vop)))

       (when cur-nfp

 	(store-stack-tn nfp-save cur-nfp))