Changeset 10045


Ignore:
Timestamp:
09/26/05 19:58:36 (16 years ago)
Author:
piso
Message:

LispWorks? support.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/file-system-tests.lisp

    r10041 r10045  
    6060
    6161(defun pathnames-equal-p (pathname1 pathname2)
    62   #-(or allegro cmu)
     62  #-(or allegro cmu lispworks)
    6363  (equal pathname1 pathname2)
    6464  #+(or allegro cmu)
     
    7373           (and (member (pathname-version pathname1) '(:newest nil))
    7474                (member (pathname-version pathname2) '(:newest nil))
    75                 t))))
     75                t)))
     76  #+lispworks
     77  (string= (namestring pathname1) (namestring pathname2)))
    7678
    7779#+allegro
     
    125127    :input nil :output output)))
    126128
     129#+lispworks
     130(defun run-shell-command (command &key directory (output *standard-output*))
     131  (when directory
     132    #+unix
     133    (setf command (concatenate 'string
     134                               "\\cd \""
     135                               (namestring (pathname directory))
     136                               "\" && "
     137                               command)))
     138  (system:call-system-showing-output
     139   command
     140   :shell-type "/bin/sh"
     141   :output-stream output))
     142
    127143(defun copy-file (from to)
    128144  (let* ((from-namestring (namestring (pathname from)))
     
    148164   (error "Unable to create a temporary filename in ~S~%" directory))
    149165
    150 #-(or allegro clisp windows)
     166#-(or allegro clisp lispworks windows)
    151167(deftest run-shell-command.1
    152168  (let* ((raw-string
     
    163179  t)
    164180
    165 #-(or allegro clisp windows)
     181#-(or allegro clisp lispworks windows)
    166182(deftest run-shell-command.2
    167183  (let* ((directory
     
    279295       (when (ext:probe-directory directory-namestring)
    280296         (ext:delete-dir directory-namestring))
    281        #-(or allegro clisp)
     297       #+lispworks
     298       (when (probe-file directory-namestring)
     299         (lw:delete-directory directory-namestring))
     300       #-(or allegro clisp lispworks)
    282301       (when (probe-file directory-namestring)
    283302         #-(or cmu sbcl) (delete-file directory-namestring)
Note: See TracChangeset for help on using the changeset viewer.