Custom Query (1030 matches)

CCL trunk, distilled from ITERATE load error. Note (BOUNDP 'VERSION) instead of "Current version of Iterate", DOC variable gets mixed up with another value.

CL-USER> (defun zzz (WHOLE ENVIRON)
           (DECLARE
            (IGNORABLE WHOLE ENVIRON))
           (BLOCK DEFCONST
             (LET* ((ARGS
                      (CCL::PREPARE-TO-DESTRUCTURE
                       (CDR WHOLE)
                       '(NAME VALUE &OPTIONAL DOC)
                       2
                       3))
                    (NAME (POP ARGS))
                    (VALUE (POP ARGS))
                    (DOC
                      (IF
                       ARGS
                       (POP ARGS)
                       'NIL)))
               
               (LIST*
                'UNLESS
                (LIST*
                 (LIST*
                  'BOUNDP
                  (LIST (LIST* 'QUOTE (LIST NAME))))
                 (LIST
                  (IF
                   DOC
                   (LIST*
                    'DEFCONSTANT
                    (LIST*
                     NAME
                     (LIST* VALUE (LIST DOC))))
                   (LIST*
                    'DEFCONSTANT
                    (LIST*
                     NAME
                     (LIST VALUE))))))))))
ZZZ
CL-USER> (print (zzz '(defconst version "1.4" "Current version of Iterate") nil))
(UNLESS (BOUNDP 'VERSION) (DEFCONSTANT VERSION "1.4" (BOUNDP 'VERSION)))

Original macro:

(defmacro defconst (name value &optional doc)
   `(eval-when (:compile-toplevel :load-toplevel :execute)
      (unless (boundp ',name)
        ,(if doc
             `(defconstant ,name ,value ,doc)
           `(defconstant ,name ,value)))))

The following code signals an error about the :sign keyword argument. The culprit seems to be the method on T, which prevents the method on list to run. If I omit the method on T, or I define it e.g. on built-in-class, the error is gone.

(defgeneric render (obj &rest args))

(defmethod render ((obj t) &key)
  (print obj))

(defmethod render ((obj list) &rest args)
  (mapc (lambda (item)
          (apply #'render item args))
        obj))

(defmethod render ((obj number) &key sign)
  (print (* sign obj)))

(render (list 1 2 3 4) :sign -1)

According to my reading of CLHS (7.6.4 & 7.6.5), no error should be signaled. Indeed, I have tested this with SBCL and it runs just fine.

If your ccl-init.lisp is actually a symlink to a file elsewhere and you meta-dot on a definition in that file, Hemlock opens a window to the symlink rather than the actual file. (It shows a small arrow in the titlebar icon of the window). Edits to this "file" can be made but CCL throws an error when you try to save them.