home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / src / kclmac.lisp < prev    next >
Encoding:
Text File  |  2003-02-09  |  356 b   |  18 lines

  1. (in-package "MAXIMA")
  2. #-(and gcl ansi-cl)
  3. (use-package "SERROR")
  4.  
  5. (defvar errset nil)
  6.  
  7. #-(and gcl ansi-cl)
  8. (defmacro errset (form &optional flag) flag
  9.   `(cond-any-error (er)
  10.            (list ,form)
  11.            ((null errset) nil)))
  12.  
  13. #+(and gcl ansi-cl)
  14. (defmacro errset (&rest l)
  15.    `(cl:handler-case (list ,(car l))
  16.      (cl:error (e) (if errset (error e)))))
  17.  
  18.