Plaster
New
List
Login
text
default
yitzi
2024.01.18 21:46:08
* (macroexpand-1 '(khazern-extrinsic:loop for (i . j) in nil initially (write i))) (BLOCK NIL (LET ((#:G341 NIL)) (LET ((#:G338 NIL)) (LET ((#:G340 #:G338) (J NIL) (I NIL)) (DECLARE (TYPE (OR NULL T) J) (TYPE (OR NULL T) I)) (TAGBODY (WHEN (ENDP #:G340) (GO KHAZERN-EXTRINSIC::END-LOOP)) (LET* ((#:G346 (CAR #:G340)) (#:G344 (CAR #:G346)) (#:G345 (CDR #:G346))) (SETQ I #:G344 J #:G345)) (SETQ #:G340 (CDR #:G340)) (WRITE I) #:G343 (WHEN (ENDP #:G340) (GO KHAZERN-EXTRINSIC::END-LOOP)) (LET* ((#:G349 (CAR #:G340)) (#:G347 (CAR #:G349)) (#:G348 (CDR #:G349))) (SETQ I #:G347 J #:G348)) (SETQ #:G340 (CDR #:G340)) (GO #:G343) KHAZERN-EXTRINSIC::END-LOOP (RETURN-FROM NIL #:G341))))))
Raw
Annotate
Repaste