Commit 8ce4e4b5 authored by Dave Cooper's avatar Dave Cooper
Browse files

got rid of warnings from gendl.lisp

parent 685088cd
...@@ -15,6 +15,7 @@ bin ...@@ -15,6 +15,7 @@ bin
configure.el configure.el
systems.txt systems.txt
system-index.txt
# Ignore (generated) html files, # Ignore (generated) html files,
# *.html # *.html
......
...@@ -415,6 +415,8 @@ each returning a list of proposed messages.") ...@@ -415,6 +415,8 @@ each returning a list of proposed messages.")
(declare (ignorable arguments)) (declare (ignorable arguments))
(or (embedded-the-arglist) (call-next-method))) (or (embedded-the-arglist) (call-next-method)))
(defvar *this-the*)
(defun embedded-the-arglist () (defun embedded-the-arglist ()
(let* ((whole-form *form-with-arglist*) (let* ((whole-form *form-with-arglist*)
(*this-the* (this-the-from-form whole-form)) (*this-the* (this-the-from-form whole-form))
...@@ -457,10 +459,10 @@ each returning a list of proposed messages.") ...@@ -457,10 +459,10 @@ each returning a list of proposed messages.")
((gendl:the-child) ((gendl:the-child)
;; It's a the-child inside an :object or :hidden-object. ;; It's a the-child inside an :object or :hidden-object.
;; Look graciously for a :sequence key. ;; Look graciously for a :sequence key.
(loop for key in (cdr slot-form) by 'cddr (loop for key in (cdr slot-form) by #'cddr
thereis (eq key :sequence))))))) thereis (eq key :sequence)))))))
(defvar *this-the*)
;; Try repeating the name of this function, many times, fast, and in a darkened room. ;; Try repeating the name of this function, many times, fast, and in a darkened room.
(defun this-the-from-form (form) (defun this-the-from-form (form)
...@@ -564,7 +566,7 @@ gendl:the (etc) form under construction." ...@@ -564,7 +566,7 @@ gendl:the (etc) form under construction."
(defmethod safe-find-class ((self symbol)) (find-class self nil)) (defmethod safe-find-class ((self symbol)) (find-class self nil))
(defmethod safe-find-class ((self class)) self) (defmethod safe-find-class ((self class)) self)
(defmethod safe-find-class (self) nil) (defmethod safe-find-class ((self t)) nil)
;; [gendl] make your own defparameter for now, but flag it that it ;; [gendl] make your own defparameter for now, but flag it that it
;; might be redundant with something we already have defined ;; might be redundant with something we already have defined
......
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