Commit 7aaf07db authored by U-GREBE\nick's avatar U-GREBE\nick
Browse files

Fix #+swank load of gendl.asd; fix (the...) when the slotname hasn't been interned yet.

parent 341cc527
...@@ -666,7 +666,9 @@ in one of the *internal-packages*), otherwise filter for non-nil message-remarks ...@@ -666,7 +666,9 @@ in one of the *internal-packages*), otherwise filter for non-nil message-remarks
;; Use this to check we don't return the current slot as a potential message. ;; Use this to check we don't return the current slot as a potential message.
;; But messages -- as in (the message-list) -- are keywords and this isn't... ;; But messages -- as in (the message-list) -- are keywords and this isn't...
(when-let (current (car (this-the-slot-form this-the))) (when-let (current (car (this-the-slot-form this-the)))
(glisp:intern current :keyword)))) (if (arglist-dummy-p current)
(intern (arglist-dummy.string-representation current) :keyword)
(glisp:intern current :keyword)))))
(let* ((prototype (gendl-class-prototype class)) (let* ((prototype (gendl-class-prototype class))
(all-messages (gendl:the-object prototype (all-messages (gendl:the-object prototype
(message-list :message-type :local (message-list :message-type :local
......
...@@ -8,7 +8,7 @@ ...@@ -8,7 +8,7 @@
#+asdf-encoding :encoding #+asdf-encoding :utf-8 #+asdf-encoding :encoding #+asdf-encoding :utf-8
:version "2013031600" :version "2013031600"
:depends-on (:cl-lite :gwl-graphics :tasty :robot :yadd) :depends-on (:cl-lite :gwl-graphics :tasty :robot :yadd)
:components ((:file #+:swank "emacs/glime"))) :components (#+:swank (:file "emacs/glime")))
(defmethod perform :after ((op load-op) (system (eql (find-system "gendl")))) (defmethod perform :after ((op load-op) (system (eql (find-system "gendl"))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment