Commit 2a69ccc3 authored by Gail Zacharias's avatar Gail Zacharias

Remove duplicate definitions (cut & paste errors)

parent fdbbcebb
...@@ -1798,10 +1798,6 @@ else eliminate any function messages with required keywords, and ...@@ -1798,10 +1798,6 @@ else eliminate any function messages with required keywords, and
(when (arglist-available-p arglist) (when (arglist-available-p arglist)
(values message-form 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) (defun find-subform-with-arglist (form)
"Returns four values: "Returns four values:
...@@ -2351,9 +2347,6 @@ datum for subsequent logics to rely on." ...@@ -2351,9 +2347,6 @@ datum for subsequent logics to rely on."
;; 9.2. Messages which we can deduce from the current form. ;; 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) (defun current-section-in-object-defn (defn)
(destructuring-bind (classname &optional mixins &rest keys) (cdr defn) (destructuring-bind (classname &optional mixins &rest keys) (cdr defn)
(declare (ignore classname mixins)) (declare (ignore classname mixins))
......
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