search

fukamachi / ningle

Super micro framework for Common Lisp
http://8arrow.org/ningle/
273 stars 25 forks source link

Requirement #12

Closed rudolph-miller closed 9 years ago

rudolph-miller commented 9 years ago

*default-requirements-map* is used for :initform of app-requirements of <app>, and it causes the issue like

(ql:quickload 'ningle)

(defclass <alfa> (ningle:<app>) ())
(defclass <bravo> (ningle:<app>) ())

(defvar *charlie* (make-instance '<alfa>))
(defvar *delta* (make-instance '<bravo>))

(setf (ningle:requirement *charlie* :echo)
      (lambda () (pprint "charlie")))

(setf (ningle:requirement *delta* :echo)
      (lambda () (pprint "delta")))

(funcall (ningle:requirement *charlie* :echo))
;; => "delta"
(funcall (ningle:requirement *delta* :echo))
;; => "delta"

.

fukamachi commented 9 years ago

Thanks!