Custom Query (1030 matches)

and turns non-error conditions into errors (making it impossible to use the condition system except for errors).

? (define-condition note-change () ())
NOTE-CHANGE
? (signal 'note-change)
NIL
? (objc:defmethod (#/frotz  :void) ((self ns:ns-application)) (signal 'note-change))
|-[NSApplication frotz]|
? (#/frotz gui::*nsapp*)
> Error: Condition #<NOTE-CHANGE  Condition  #x3020014520AD>
> While executing: #<Anonymous Function #x3000012B946F>, in process Listener(6).
> Type cmd-. to abort, cmd-\ for a list of available restarts.
> Type :? for other options.
1 > 

? (defun required-argument () (error "missing slot initform"))

? (defstruct foo
    (a (required-argument) :type (function (integer) t)))

? (make-foo :a #'oddp)
=> whoops.

Upgrade to Ubuntu 10.04 LTS.