test-ps-eval-order.lisp

(in-package :cl-user)
(defpackage test-ps-eval-order
  (:use :cl
        :parenscript)
  (: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)))
  (fresh-line))