File: defmacro-test.lisp

package info (click to toggle)
sbcl 1%3A0.9.16.0-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 19,960 kB
  • ctags: 16,537
  • sloc: lisp: 231,164; ansic: 19,558; asm: 2,539; sh: 1,925; makefile: 308
file content (15 lines) | stat: -rw-r--r-- 399 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
;;;; Test of non-toplevel DEFMACRO
(cl:in-package :cl-user)

(eval-when (:compile-toplevel)
  (defun defmacro-test-aux (x)
    (setq *defmacro-test-status* `(function ,x))
    nil))

(let ((z 'z-value))
  (defmacro defmacro-test-aux (x)
    (setq *defmacro-test-status* `(macro ,x ,z))
    `(setq *defmacro-test-status* '(expanded ,x ,z))))

(eval-when (:compile-toplevel)
  (defmacro-test-aux 'a))