Skip to content

Instantly share code, notes, and snippets.

Last active December 17, 2015 16:24
What would you like to do?
(in-package :cl-user)
(defpackage test-ps-eval-order
(:use :cl
(:export :print-ps))
(in-package :test-ps-eval-order)
(eval-when (:compile-toplevel :execute :load-toplevel)
(defpsmacro test-defpsmacro ()
`(setf ok "expanded by test-defpsmacro")))
(ps (defmacro test-defmacro-in-ps ()
`(setf ok "expanded by test-defmacro-in-ps")))
(defun print-ps ()
(princ "----- From test-ps-eval-order::print-ps -----")
(print (ps (test-defpsmacro)))
(print (ps (test-defmacro-in-ps)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment