Apr 9, 2008, 11:48:46 PM (13 years ago)

Add CCL:TEST-CCL - runs the gcl test suite (checking it out into ccl:tests;
if necessary). This will print out a bunch of warnings early on (for now),
then sit there for a while (about 3 mins on a MacBook? Pro) and finally
report "No tests failed".

Propagate assorted small fixes from trunk:

r8996 - fix case of spurious defvar warning
r9027 - check arg count before deciding to use builtin-call
r9046 - small fix for ~@:C
r9047 - report a TYPE-ERROR when make-broadcast-stream is given a non-output-stream
r9048 - Make make-file-stream rejected wildcarded pathnames. Various tweaks to make

meta-. work when using pathnames relative to the file system's "current directory".

r9049 - make defclass check for illegal class options
r9052 - Don't constant-fold if arg count is obviously wrong.
r9059 - Try harder to do function calls as function calls when (OPTIMIZE (SAFETY 3))

is in effect.

r9060, r9061 - CTYPE-SUBTYPE: try harder in some cases.
r9068, r9069, r9103, r9104 - PPC2-REF-SYMBOL-VALUE: force boundp checks unless

*ppc2-reckless* (same policy as x86; the per-thread binding lookup is generally
more expensive than boundp trap these days.). Unless skipping boundp check, don't
ignore unused result (so we can error when safety is 3, mostly.)

1 edited


  • branches/working-0711/ccl/level-1/l1-files.lisp

    r8931 r9117  
    152152      (signal-file-error $err-no-file path)))
     154(defun check-pathname-not-wild (path)
     155  (when (wild-pathname-p path)
     156    (error 'file-error :error-type "Inappropriate use of wild pathname ~s"
     157           :pathname path))
     158  path)
    154160(defun probe-file (path)
    155161  "Return a pathname which is the truename of the file if it exists, or NIL
    156162  otherwise. An error of type FILE-ERROR is signaled if pathname is wild."
    157   (when (wild-pathname-p path)
    158     (error 'file-error :error-type "Inappropriate use of wild pathname ~s"
    159            :pathname path))
     163  (check-pathname-not-wild path)
    160164  (let* ((native (native-translated-namestring path))
    161165         (realpath (%realpath native))
    268272(defun absolute-directory-list (dirlist)
    269273  ; just make relative absolute and remove ups where possible
    270   (when (eq (car dirlist) :relative)
     274  (when (or (null dirlist) (eq (car dirlist) :relative))
    271275    (let ((default (mac-default-directory)) default-dir)
    272276      (when default
    10881092        (kind nil))
    10891093    (when full-name
     1094      (when (eq (pathname-host file-name) :unspecific) ;; if physical pathname to begin with, force absolute
     1095        (setq file-name full-name))
    10901096      (let ((file-type (pathname-type full-name)))
    10911097        (if (and file-type (neq file-type :unspecific))
Note: See TracChangeset for help on using the changeset viewer.