История изменений

(in-package :gsll)
(car (list (CYLINDRICAL-BESSEL-K0 0.72D0)));;значение моё для проверки, что я не ошибся

;; define the reader function
(defun custom-comment-reader-macro (stream char &optional num)
  ;; char will be #\+ in our case, and num will be nil.
  ;; stream will be the code input stream
  (declare (ignore char num))
  ;; this is the default behaviour of #+, you can customize it below
  (if (member (intern (string (read stream)) :keyword)
              *features*)
      (read stream)
      (progn (read stream)              ;ignore next token
             (values))))                ;return nothing

;; tell the reader to use our function when it encounters #+
(set-dispatch-macro-character #\# #\+ #'custom-comment-reader-macro)

(in-package :gsll)
(car (list (CYLINDRICAL-BESSEL-K0 0.72D0)));;значение моё для проверки, что я не ошибся