CL-USER> (macroexpand-dammit:macroexpand-dammit '(cffi:defcfun ("conjf" %conjf) complex-single-float
  (z :pointer)))
(PROGN
 NIL
 (DEFUN %CONJF (Z)
   (LET ((SB-C:*ALIEN-STACK-POINTER* SB-C:*ALIEN-STACK-POINTER*))
     (LET ((#:VAR3
            (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
             '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                       (UNSIGNED
                                                                        8)
                                                                       8)>)))
       (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
        '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                  (UNSIGNED 8)
                                                                  8)>
        #:VAR3)
       (LET ((#:SIZE1 8)
             (CFFI::ARGUMENT-VALUES
              (ALIEN-SAP
               (SB-ALIEN-INTERNALS:LOCAL-ALIEN
                '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                          (UNSIGNED
                                                                           8)
                                                                          8)>
                #:VAR3))))
         (DECLARE (IGNORABLE #:SIZE1))
         (LET ((SB-C:*ALIEN-STACK-POINTER* SB-C:*ALIEN-STACK-POINTER*))
           (LET ((#:VAR6
                  (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
                   '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                             (UNSIGNED
                                                                              8)
                                                                             8)>)))
             (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
              '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                        (UNSIGNED
                                                                         8)
                                                                        8)>
              #:VAR6)
             (LET ((#:SIZE4 8)
                   (CFFI::RESULT
                    (ALIEN-SAP
                     (SB-ALIEN-INTERNALS:LOCAL-ALIEN
                      '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                                (UNSIGNED
                                                                                 8)
                                                                                8)>
                      #:VAR6))))
               (DECLARE (IGNORABLE #:SIZE4))
               (PROGN
                (LET ((SB-C:*ALIEN-STACK-POINTER* SB-C:*ALIEN-STACK-POINTER*))
                  (LET ((#:VAR9
                         (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
                          '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                                    (UNSIGNED
                                                                                     8)
                                                                                    8)>)))
                    (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
                     '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                               (UNSIGNED
                                                                                8)
                                                                               8)>
                     #:VAR9)
                    (LET ((#:SIZE7 8)
                          (#:G0
                           (ALIEN-SAP
                            (SB-ALIEN-INTERNALS:LOCAL-ALIEN
                             '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
                                                                                       (UNSIGNED
                                                                                        8)
                                                                                       8)>
                             #:VAR9))))
                      (DECLARE (IGNORABLE #:SIZE7))
                      (CFFI:TRANSLATE-INTO-FOREIGN-MEMORY Z
                                                          #<CFFI::FOREIGN-POINTER-TYPE :POINTER>
                                                          #:G0)
                      (LET ((#:PTR10 ;; **************************************************** #1
                             (PROGN
                              (BLOCK NIL
                                (LET ((CFFI::ARG NIL)
                                      (#:LOOP-LIST-11 (LIST #:G0)))
                                  (DECLARE)
                                  (LET ((COUNT 0))
                                    (DECLARE (TYPE NUMBER COUNT))
                                    (TAGBODY
                                      (IF (ENDP #:LOOP-LIST-11)
                                          (GO SB-LOOP::END-LOOP))
                                      (SETQ CFFI::ARG (CAR #:LOOP-LIST-11))
                                      (SETQ #:LOOP-LIST-11
                                              (CDR #:LOOP-LIST-11))
                                     SB-LOOP::NEXT-LOOP
                                      (LET ((#:INDEX-TMP14 COUNT))
                                        (LET ((#:STORE12 CFFI::ARG))
                                          (LET ((#:VALUE15 #:STORE12))
                                            (SB-KERNEL:%SET-SAP-REF-SAP
                                             CFFI::ARGUMENT-VALUES
                                             (* #:INDEX-TMP14 8) #:VALUE15))
                                          #:STORE12))
                                      (IF (ENDP #:LOOP-LIST-11)
                                          (GO SB-LOOP::END-LOOP))
                                      (SETQ CFFI::ARG (CAR #:LOOP-LIST-11))
                                      (SETQ #:LOOP-LIST-11
                                              (CDR #:LOOP-LIST-11))
                                      (SETQ COUNT (1+ COUNT))
                                      (GO SB-LOOP::NEXT-LOOP)
                                     SB-LOOP::END-LOOP))))
                              (LET ((CFFI::LIBFFI-CIF-CACHE
                                     (LOAD-TIME-VALUE
                                      (CONS 'CFFI::LIBFFI-CIF-CACHE NIL))))
                                (LET ((CFFI::LIBFFI-CIF
                                       (LET ((#:G16
                                              (CDR CFFI::LIBFFI-CIF-CACHE)))
                                         (IF #:G16
                                             #:G16
                                             (SB-KERNEL:%RPLACD
                                              CFFI::LIBFFI-CIF-CACHE
                                              (CFFI::MAKE-LIBFFI-CIF "conjf"
                                                                     'COMPLEX-SINGLE-FLOAT
                                                                     '(:POINTER)
                                                                     ':DEFAULT-ABI))))))
                                  (CFFI::LIBFFI/CALL CFFI::LIBFFI-CIF
                                                     (CFFI:FOREIGN-SYMBOL-POINTER
                                                      "conjf")
                                                     CFFI::RESULT
                                                     CFFI::ARGUMENT-VALUES)
                                  CFFI::RESULT)))))
                        (COMPLEX (SB-SYS:SAP-REF-SINGLE #:PTR10 0) ;******************** #2
                                 (SB-SYS:SAP-REF-SINGLE #:PTR10 4)))))))))))))))