Ignore:
Timestamp:
05/13/10 16:44:05 (11 years ago)
Author:
Mark Evenson
Message:

Muffle warning from Ant 1.8.1 about includeantruntime not being set.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/require.lisp

    r12447 r12676  
    3939(defun module-provide-system (module)
    4040  (let ((*readtable* (copy-readtable nil)))
    41     (handler-case
    42         (load-system-file (string-downcase (string module)))
    43       (t (e)
    44         (unless (and (typep e 'error)
    45                      (search "Failed to find loadable system file"
    46                              (format nil "~A" e)))
    47           (format *error-output* "Failed to require  ~A because '~A'~%"
    48                   module e))
    49         nil))))
     41       (handler-case
     42           (load-system-file (string-downcase (string module)))
     43         (t (e)
     44           (unless (and (typep e 'error)
     45                        (search "Failed to find loadable system file"
     46                                (format nil "~A" e)))
     47             (format *error-output* "Failed to require  ~A because '~A'~%"
     48                     module e))
     49           nil))))
     50
     51         ;;   (progn
     52         ;;     (format t "BEFORE~%")
     53         ;;     (load-system-file (string-downcase (string module)))
     54         ;;     (format t "AFTER~%"))
     55         ;; ((error (c)
     56         ;;   (progn
     57         ;;     (format t "MATCHED~%")
     58         ;;     ;; XXX It would be much better to detect an error
     59         ;;     ;; type rather than searching for a string, but
     60
     61         ;;     ;; that's tricky as LOAD-SYSTEM-FILE is such an
     62         ;;     ;; early primitive.
     63         ;;     (when (search "Failed to find loadable system file"
     64         ;;                   (format nil "~A" c))
     65         ;;       (return-from module-provide-system (values nil c)))))))))
    5066   
    5167(defvar *module-provider-functions* nil)
     
    6278                           (append (list #'module-provide-system)
    6379                                 sys::*module-provider-functions*))
    64                (error "Don't know how to ~S ~A." 'require module-name))))
     80               (warn "Failed to require ~A." module-name))))
    6581      (set-difference *modules* saved-modules))))
    6682
Note: See TracChangeset for help on using the changeset viewer.