Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Trace of functions in CL-WHO
(macroexpand-1 '(with-html-output (*standard-output*)
(:p :align "right" "Here is some text with a part of it "
(:b "bolded."))))
;; The function trace
0: (TREE-TO-TEMPLATE
((:P :ALIGN "right" "Here is some text with a part of it "
(:B "bolded."))))
1: (PROCESS-TAG
(:P :ALIGN "right" "Here is some text with a part of it "
(:B "bolded."))
#<CLOSURE SB-IMPL::ENCAPSULATION {100712692B}>)
2: (CONVERT-TAG-TO-STRING-LIST :P ((:ALIGN . "right"))
("Here is some text with a part of it "
(:B "bolded."))
#<CLOSURE SB-IMPL::ENCAPSULATION
{100712692B}>)
3: (TREE-TO-TEMPLATE
("Here is some text with a part of it " (:B "bolded.")))
4: (PROCESS-TAG (:B "bolded.")
#<CLOSURE SB-IMPL::ENCAPSULATION {100712692B}>)
5: (CONVERT-TAG-TO-STRING-LIST :B NIL ("bolded.")
#<CLOSURE SB-IMPL::ENCAPSULATION
{100712692B}>)
6: (TREE-TO-TEMPLATE ("bolded."))
6: TREE-TO-TEMPLATE returned ("bolded.")
5: CONVERT-TAG-TO-STRING-LIST returned
("<" "b" ">" "bolded." "</" "b" ">")
4: PROCESS-TAG returned ("<" "b" ">" "bolded." "</" "b" ">")
3: TREE-TO-TEMPLATE returned
("Here is some text with a part of it " "<" "b" ">" "bolded." "</"
"b" ">")
2: CONVERT-TAG-TO-STRING-LIST returned
("<" "p" " " "align" "='" "right" "'" ">"
"Here is some text with a part of it " "<" "b" ">" "bolded." "</"
"b" ">" "</" "p" ">")
1: PROCESS-TAG returned
("<" "p" " " "align" "='" "right" "'" ">"
"Here is some text with a part of it " "<" "b" ">" "bolded." "</" "b"
">" "</" "p" ">")
0: TREE-TO-TEMPLATE returned
("<" "p" " " "align" "='" "right" "'" ">"
"Here is some text with a part of it " "<" "b" ">" "bolded." "</" "b"
">" "</" "p" ">")
;; Everything after this is the expanded code returned from macroexpand-1
(LET ((*STANDARD-OUTPUT* *STANDARD-OUTPUT*))
(CHECK-TYPE *STANDARD-OUTPUT* STREAM)
(MACROLET ((HTM (&BODY BODY)
`(WITH-HTML-OUTPUT (,'*STANDARD-OUTPUT* NIL :PROLOGUE NIL
:INDENT ,NIL)
,@BODY))
(FMT (&REST ARGS)
`(FORMAT ,'*STANDARD-OUTPUT* ,@ARGS))
(ESC (THING)
(WITH-UNIQUE-NAMES (RESULT)
`(LET ((,RESULT ,THING))
(WHEN ,RESULT
(WRITE-STRING (ESCAPE-STRING ,RESULT)
,'*STANDARD-OUTPUT*)))))
(STR (THING)
(WITH-UNIQUE-NAMES (RESULT)
`(LET ((,RESULT ,THING))
(WHEN ,RESULT (PRINC ,RESULT ,'*STANDARD-OUTPUT*))))))
(WRITE-STRING
"<p align='right'>Here is some text with a part of it <b>bolded.</b></p>"
*STANDARD-OUTPUT*)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment