diff --git a/emacs/glime.lisp b/emacs/glime.lisp index 0ca79be27c61d780cb10d7fabc7aa3f379bac5a6..5fe437f473abc18364c0ae8dff71a79f336a5c94 100644 --- a/emacs/glime.lisp +++ b/emacs/glime.lisp @@ -1798,10 +1798,6 @@ else eliminate any function messages with required keywords, and (when (arglist-available-p arglist) (values message-form arglist)))))) -(defun plist-tail (plist) - (loop for last = plist then next for next = (cddr last) - when (null next) return last)) - (defun find-subform-with-arglist (form) "Returns four values: @@ -2351,9 +2347,6 @@ datum for subsequent logics to rely on." ;; 9.2. Messages which we can deduce from the current form. -(defparameter +define-object-sections+ - '(:input-slots :computed-slots :objects :hidden-objects :functions :methods)) - (defun current-section-in-object-defn (defn) (destructuring-bind (classname &optional mixins &rest keys) (cdr defn) (declare (ignore classname mixins))