From 2a69ccc3253fe957ec1fff2550d2af9cee02c018 Mon Sep 17 00:00:00 2001 From: Gail Zacharias Date: Thu, 10 Mar 2016 19:18:26 -0500 Subject: [PATCH] Remove duplicate definitions (cut & paste errors) --- emacs/glime.lisp | 7 ------- 1 file changed, 7 deletions(-) diff --git a/emacs/glime.lisp b/emacs/glime.lisp index 0ca79be2..5fe437f4 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)) -- GitLab