API tools faq
paste
Guest User

Untitled

a guest
May 12th, 2020
150
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.84 KB | None | 0 0
raw download clone embed print report
  1. CL-USER> (macroexpand-dammit:macroexpand-dammit '(cffi:defcfun ("conjf" %conjf) complex-single-float
  2. (z :pointer)))
  3. (PROGN
  4. NIL
  5. (DEFUN %CONJF (Z)
  6. (LET ((SB-C:*ALIEN-STACK-POINTER* SB-C:*ALIEN-STACK-POINTER*))
  7. (LET ((#:VAR3
  8. (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
  9. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  10. (UNSIGNED
  11. 8)
  12. 8)>)))
  13. (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
  14. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  15. (UNSIGNED 8)
  16. 8)>
  17. #:VAR3)
  18. (LET ((#:SIZE1 8)
  19. (CFFI::ARGUMENT-VALUES
  20. (ALIEN-SAP
  21. (SB-ALIEN-INTERNALS:LOCAL-ALIEN
  22. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  23. (UNSIGNED
  24. 8)
  25. 8)>
  26. #:VAR3))))
  27. (DECLARE (IGNORABLE #:SIZE1))
  28. (LET ((SB-C:*ALIEN-STACK-POINTER* SB-C:*ALIEN-STACK-POINTER*))
  29. (LET ((#:VAR6
  30. (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
  31. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  32. (UNSIGNED
  33. 8)
  34. 8)>)))
  35. (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
  36. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  37. (UNSIGNED
  38. 8)
  39. 8)>
  40. #:VAR6)
  41. (LET ((#:SIZE4 8)
  42. (CFFI::RESULT
  43. (ALIEN-SAP
  44. (SB-ALIEN-INTERNALS:LOCAL-ALIEN
  45. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  46. (UNSIGNED
  47. 8)
  48. 8)>
  49. #:VAR6))))
  50. (DECLARE (IGNORABLE #:SIZE4))
  51. (PROGN
  52. (LET ((SB-C:*ALIEN-STACK-POINTER* SB-C:*ALIEN-STACK-POINTER*))
  53. (LET ((#:VAR9
  54. (SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN
  55. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  56. (UNSIGNED
  57. 8)
  58. 8)>)))
  59. (SB-ALIEN-INTERNALS:NOTE-LOCAL-ALIEN-TYPE
  60. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  61. (UNSIGNED
  62. 8)
  63. 8)>
  64. #:VAR9)
  65. (LET ((#:SIZE7 8)
  66. (#:G0
  67. (ALIEN-SAP
  68. (SB-ALIEN-INTERNALS:LOCAL-ALIEN
  69. '#<SB-ALIEN-INTERNALS:LOCAL-ALIEN-INFO (forced to stack) (ARRAY
  70. (UNSIGNED
  71. 8)
  72. 8)>
  73. #:VAR9))))
  74. (DECLARE (IGNORABLE #:SIZE7))
  75. (CFFI:TRANSLATE-INTO-FOREIGN-MEMORY Z
  76. #<CFFI::FOREIGN-POINTER-TYPE :POINTER>
  77. #:G0)
  78. (LET ((#:PTR10 ; ****************************** #1
  79. (LET ((#:PTR11 ; *********************** #2
  80. (PROGN
  81. (BLOCK NIL
  82. (LET ((CFFI::ARG NIL)
  83. (#:LOOP-LIST-12 (LIST #:G0)))
  84. (DECLARE)
  85. (LET ((COUNT 0))
  86. (DECLARE (TYPE NUMBER COUNT))
  87. (TAGBODY
  88. (IF (ENDP #:LOOP-LIST-12)
  89. (GO SB-LOOP::END-LOOP))
  90. (SETQ CFFI::ARG
  91. (CAR #:LOOP-LIST-12))
  92. (SETQ #:LOOP-LIST-12
  93. (CDR #:LOOP-LIST-12))
  94. SB-LOOP::NEXT-LOOP
  95. (LET ((#:INDEX-TMP15 COUNT))
  96. (LET ((#:STORE13 CFFI::ARG))
  97. (LET ((#:VALUE16 #:STORE13))
  98. (SB-KERNEL:%SET-SAP-REF-SAP
  99. CFFI::ARGUMENT-VALUES
  100. (* #:INDEX-TMP15 8)
  101. #:VALUE16))
  102. #:STORE13))
  103. (IF (ENDP #:LOOP-LIST-12)
  104. (GO SB-LOOP::END-LOOP))
  105. (SETQ CFFI::ARG
  106. (CAR #:LOOP-LIST-12))
  107. (SETQ #:LOOP-LIST-12
  108. (CDR #:LOOP-LIST-12))
  109. (SETQ COUNT (1+ COUNT))
  110. (GO SB-LOOP::NEXT-LOOP)
  111. SB-LOOP::END-LOOP))))
  112. (LET ((CFFI::LIBFFI-CIF-CACHE
  113. (LOAD-TIME-VALUE
  114. (CONS 'CFFI::LIBFFI-CIF-CACHE
  115. NIL))))
  116. (LET ((CFFI::LIBFFI-CIF
  117. (LET ((#:G17
  118. (CDR
  119. CFFI::LIBFFI-CIF-CACHE)))
  120. (IF #:G17
  121. #:G17
  122. (SB-KERNEL:%RPLACD
  123. CFFI::LIBFFI-CIF-CACHE
  124. (CFFI::MAKE-LIBFFI-CIF
  125. "conjf"
  126. 'COMPLEX-SINGLE-FLOAT
  127. '(:POINTER)
  128. ':DEFAULT-ABI))))))
  129. (CFFI::LIBFFI/CALL CFFI::LIBFFI-CIF
  130. (CFFI:FOREIGN-SYMBOL-POINTER
  131. "conjf")
  132. CFFI::RESULT
  133. CFFI::ARGUMENT-VALUES)
  134. CFFI::RESULT)))))
  135. (COMPLEX (SB-SYS:SAP-REF-SINGLE #:PTR11 0) ; ********** #3
  136. (SB-SYS:SAP-REF-SINGLE #:PTR11 4)))))
  137. (COMPLEX (SB-SYS:SAP-REF-SINGLE #:PTR10 0) ; ********** #4
  138. (SB-SYS:SAP-REF-SINGLE #:PTR10 4)))))))))))))))
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!