common lisp macro example | графика

common lisp macro example | графика

;; simple common lisp program
;; demo work macro
;; writeln macro provide print function
;; as some in turbo pascal

(defmacro writeln (&rest args)
  `(progn (loop for e in (list ,@args)
	        do (format t "~A" e))
          (format t "~%")))

(defvar name "Alice")

(macroexpand '(writeln "hello, " name "!"))
(defun hello (name)
  writeln "hello, " name "!")

Комментарии