patterns in CLOS

// wbr

Как кто-то заметил, большинство т.н. «design patternов» являются свидетельством проблем языка программирования.

И нужен ли синглтон? Есть ли в нем смысл?

Реализовать-то можно, но есть ли смысл?

(let (singleton-value-value)
  (defun get-singleton ()
    (unless singleton-value
      (setf singleton-value (make-singleton)))
    singleton-value))

при всём уважении, это немножко не по теме

аспекты, макросы, функции-генераторы.