patterns in CLOS

а оно там надо - синглетон :-?

// wbr

(defclass abc () ((some-shared-slot :allocation :class)))

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

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

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

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

я сам не специалист, но тут кидали ссылку http://www.mm.informatik.tu-darmstadt.de/~kuehne/fps/

>я сам не специалист, но тут кидали ссылку http://www.mm.informatik.tu-darmstadt.de/~kuehne/fps/

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

>Существует что-то подобное pattern'ам для CLOS?

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