Skip to content
Snippets Groups Projects
Commit df23a00b authored by ram's avatar ram
Browse files

Added the FILE-COMMENT macro for RCS header usage.

parent 8e537442
No related branches found
No related tags found
No related merge requests found
......@@ -14,13 +14,14 @@
;;; **********************************************************************
(in-package "EXTENSIONS")
(export '(letf* letf dovector deletef indenting-further
(export '(letf* letf dovector deletef indenting-further file-comment
read-char-no-edit listen-skip-whitespace concat-pnames
iterate once-only collect do-anonymous undefined-value))
(import 'lisp::whitespace-char-p)
;;; Undefined-Value -- Public
;;;
;;; This is here until we figure out what to do with it.
......@@ -30,6 +31,19 @@
'%undefined%)
;;; FILE-COMMENT -- Public
;;;
(defmacro file-comment (string)
"FILE-COMMENT String
When COMPILE-FILE sees this form at top-level, it places the constant string
in the run-time source location information. DESCRIBE will print the file
comment for the file that a function was defined in. The string is also
textually present in the FASL, so the RCS \"ident\" command can find it,
etc."
(declare (ignore string))
'(undefined-value))
(defun skip-whitespace (&optional (stream *standard-input*))
(loop (let ((char (read-char stream)))
(if (not (lisp::whitespacep char))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment