Plaster
New
List
Login
common-lisp
default
anonymous
2022.06.06 20:27:26
(defparameter *comments* '()) (defun comment-saver (stream char) (declare (ignore char)) (push (list *load-pathname* (stream-file-position stream) (with-output-to-string (str) (loop :with c :while (char/= #\Newline (setf c (read-char stream))) :do (write-char c str)))) *comments*) (values)) (set-macro-character #\; #'comment-saver)
Raw
Annotate
Repaste
Edit