Plaster
New
List
Login
common-lisp
default
phoe
2020.04.18 13:34:17
PORTABLE-CONDITION-SYSTEM> (flet ((my-report (condition stream) (declare (ignore condition)) (write-string "asdfsfgsa" stream))) (define-condition foo-condition () () (:report my-report))) FOO-CONDITION PORTABLE-CONDITION-SYSTEM> (princ (make-condition 'foo-condition)) asdfsfgsa #<FOO-CONDITION {1008CC87C3}>
Raw
Annotate
Repaste
Annotations
common-lisp
default
phoe
2020.04.18 13:36:02
PORTABLE-CONDITION-SYSTEM> (let ((x 5)) (define-condition foo-condition () () (:report (lambda (condition stream) (format stream "~S ~S" condition x))))) COMMON-LISP:WARNING: redefining PRINT-OBJECT (#<STANDARD-CLASS PORTABLE-CONDITION-SYSTEM::FOO-CONDITION> #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD FOO-CONDITION PORTABLE-CONDITION-SYSTEM> (princ (make-condition 'foo-condition)) #<FOO-CONDITION {1009381953}> 5 #<FOO-CONDITION {1009381953}>
Raw
Repaste