Custom Query (1030 matches)

In check-deferred-call-args() level-1/sysutils.lisp, the keyword :unknown-gf-keys should be :unknown-gf-keywords. The current value leads to an error in report-compile-time-argument-mismatch(), in compiler/nx-basic.lisp. A long-standing bug.

Regards, Paul Meurer

Fresh complete svn download and compile of CCL 1.10-dev-r16115-trunk (DarwinX8664). In Hemlock IDE menu [Tools] [Apropos...] immediately fails with:

> Error: The value NIL is not of the expected type SIMPLE-VECTOR.
> While executing: GUI::|-[AproposWindowController comboBox:objectValueForItemAtIndex:]|, in process Initial(0).

*(647D88) : 0 (FUNCALL #'#<GUI::|-[AproposWindowController comboBox:objectValueForItemAtIndex:]|> 17591849973284) 755
 (647E40) : 1 (%PASCAL-FUNCTIONS% 245 17591849973284) 365
 (647EF8) : 2 (FUNCALL #'#<Anonymous Function #x30000105912F> #<LISP-APPLICATION <LispApplication: 0x608000137e80> (#x608000137E80)> #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign Pointer #x7FFF8D22C066>)) 173
 (647F18) : 3 (FUNCALL #'#<(:OBJC-DISPATCH NEXTSTEP-FUNCTIONS:|run|)> ???) 541
 (647F50) : 4 (EVENT-LOOP NIL) 421
 (647FA0) : 5 (FUNCALL #'#<(:INTERNAL GUI::COCOA-STARTUP GUI::START-COCOA-IDE)>) 1205

(handler-bind ((warning (lambda (w)
                          (declare (ignore w))
                          (invoke-restart 'eleven))))
  (restart-case (warn "foo")
    (eleven () 11)))

=>

value #<SIMPLE-CONDITION #x302000E8041D> is not of the expected type WARNING.
   [Condition of type TYPE-ERROR]

A simple-error is created by error, but a simple-warning is not created by warning :)

--- ccl/lib/macros.lisp	(revision 15001)
+++ ccl/lib/macros.lisp	(working copy)
@@ -409,7 +409,7 @@
           ((signal error warn)
            (destructuring-bind
              (cond &rest args) expansion
-             (setq condform `(condition-arg ,cond (list ,@args) ,(if (eq head 'warning)
+             (setq condform `(condition-arg ,cond (list ,@args) ,(if (eq head 'warn)
                                                                    ''simple-warning
                                                                    (if (eq head 'error)
                                                                      ''simple-error