Custom Query (1030 matches)

? (defun test (name) (restart-case (cerror "foo ~s" "bar ~s" name)
			  (a-restart () nil)))
TEST
? (test 'hah)
> Error: bar HAH
> While executing: TEST, in process listener(1).
> Type :GO to continue, :POP to abort, :R for a list of available restarts.
> If continued: foo #<error printing object>

Note the #<error printing object>. The problem seems to be restart-case transforming the cerror call and losing its format args in the process.

(pprint (macroexpand-1 '(restart-case (cerror "foo ~s" "bar ~s" name)
			  (a-restart () nil))))

(BLOCK #:G672
  (LET* ((#:G673 (%CONS-RESTART 'A-RESTART NIL NIL NIL NIL))
         (#:G670 (LIST #:G673)))
    (DECLARE (DYNAMIC-EXTENT #:G673 #:G670))
    (CATCH #:G670
      (LET ((%RESTARTS% (CONS #:G670 %RESTARTS%)))
        (DECLARE (DYNAMIC-EXTENT %RESTARTS%))
        (RETURN-FROM #:G672
          (LET ((#:G671
                 (CONDITION-ARG "bar ~s" (LIST NAME) 'SIMPLE-ERROR)))
            (WITH-CONDITION-RESTARTS
              #:G671
              #:G670
              (CERROR "foo ~s" #:G671)))))))

Welcome to Clozure Common Lisp Version 1.3-dev-r11353M-trunk  (DarwinX8632)!
? (heap-utilization)
Object type                               Count   Total Size in Bytes
CONS                                      126038          1008304
BOGUS                                          3                0
BIGNUM                                       149             1156
SHORT-FLOAT                                   24               96
DOUBLE-FLOAT                                  12              144
COMPLEX                                        1                8
MACPTR                                       139             2636
FUNCTION                                   12138          5348712
BASIC-STREAM                                  34         22355952
SYMBOL                                     34835           975380
XCODE-VECTOR                                   1                0
LOCK                                         120             2880
HASH-TABLE-VECTOR                             72           324848
POOL                                          23               92
POPULATION                                    22              268
PACKAGE                                       15              480
SLOT-VECTOR                                 4628           199512
STANDARD-INSTANCE                           4183            50196
STRUCTURE                                   3283           123116
INTERNAL-STRUCTURE                          2587            67232
VALUE-CELL                                    19               76
SIMPLE-VECTOR                              23960          1089208
SIMPLE-UNSIGNED-LONG-VECTOR                    1             4092
SIMPLE-BASE-STRING                          7683           473928
SIMPLE-BIT-VECTOR                              1          2097152

Those BASIC-STREAM objects are pretty heavyweight...not to mention the presence of BOGUS and XCODE-VECTOR objects that take up no space.

Terje Norderhaug reports:

Returning from backtrace fails if the Restarts dialog has been closed.

The reason is that ui-object-exit-backtrace-context attempts to #/close the (car (ccl::bt.restarts context)) even if that is a closed restarts sequence-window-controller.

See attached file.