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

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
;; 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...
(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))
(all-messages (gendl:the-object prototype
(message-list :message-type :local
......
......@@ -8,7 +8,7 @@
#+asdf-encoding :encoding #+asdf-encoding :utf-8
:version "2013031600"
: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"))))
......
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