mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
22 lines
345 B
Common Lisp
22 lines
345 B
Common Lisp
;;;; -*- lisp -*-
|
|
|
|
(in-package :foo)
|
|
|
|
;;; Header comment.
|
|
(defvar *foo*)
|
|
|
|
(eval-when (:execute :compile-toplevel :load-toplevel)
|
|
(defun add (x &optional y &key z)
|
|
(declare (ignore z))
|
|
;; Inline comment.
|
|
(+ x (or y 1))))
|
|
|
|
#|
|
|
Multi-line comment.
|
|
|#
|
|
|
|
(defmacro foo (x &body b)
|
|
(if x
|
|
`(1+ ,x) ;After-line comment.
|
|
42))
|