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 shows a problem that I noticed.

The condition signalled seems ok (SIMPLE-READER-ERROR) but the associated message does not mention the fact that the problem is the unknown package.

Incidentally I would create a special PACKAGE-NOT-FOUND-READER condition for this specific error.

paniscia:~ marcoxa$ ccl
AM I BEING LOADED?
Welcome to Clozure Common Lisp Version 1.5-r13651  (DarwinX8632)!
? (ignore-errors (read))
foo::bar

NIL
#<CCL::SIMPLE-READER-ERROR #xC47489E>
? > Error: Unbound variable: BAR
> While executing: CCL::TOPLEVEL-EVAL, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: Retry getting the value of BAR.
> Type :? for other options.
1 > :pop

Marco

The function ccl::external-process-wait is missing on #+windows-target.

Looking at the source for run-program, it looks like this might work:

(in-package :ccl)

(defun external-process-wait (proc)
  (when (external-process-pid proc))
    (with-interrupts-enabled
        (wait-on-semaphore (external-process-completed proc)))))))