Skip to content

Instantly share code, notes, and snippets.

@csrhodes

csrhodes/function-calls.lisp

Created September 10, 2018 19:33
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save csrhodes/8d74a1749a042a780d4c4ef1a42a6752 to your computer and use it in GitHub Desktop.
Save csrhodes/8d74a1749a042a780d4c4ef1a42a6752 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
function-calls.lisp
(defun function-calls (form)
(flet ((fcall-walker (subform context env)
(typecase subform
(atom subform)
((cons (satisfies special-operator-p)) subform)
((cons (satisfies macro-function)) subform)
(t (print (car subform)) subform))))
(sb-walker:walk-form form nil #'fcall-walker)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment