/[gcl]/gcl/clcs/clcs_handler.lisp
ViewVC logotype

Diff of /gcl/clcs/clcs_handler.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by camm, Mon Sep 22 21:55:53 2003 UTC revision 1.3 by camm, Thu Oct 23 15:08:38 2003 UTC
# Line 136  Line 136 
136    `(HANDLER-CASE (PROGN ,@FORMS)    `(HANDLER-CASE (PROGN ,@FORMS)
137       (ERROR (CONDITION) (VALUES NIL CONDITION))))       (ERROR (CONDITION) (VALUES NIL CONDITION))))
138    
139  (defun conditions::find-class-no-error (object)  ;#+pcl
140    (ignore-errors (find-class object)))  ;(defun conditions::find-class-no-error (object)
141    ;  (ignore-errors (find-class object)))
142    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26