pathname objects dumped on one system to be used on another.
#| -*-Scheme-*-
-$Id: runtime.pkg,v 14.320 1999/02/24 21:37:18 cph Exp $
+$Id: runtime.pkg,v 14.321 1999/03/04 05:55:08 cph Exp $
Copyright (c) 1988-1999 Massachusetts Institute of Technology
(initialization (initialize-package!)))
(define-package (runtime pathname unix)
+ (files "unxpth")
(parent (runtime pathname))
- (file-case os-type
- ((unix) "unxpth")
- (else))
(initialization (initialize-package!)))
(define-package (runtime pathname dos)
+ (files "dospth")
(parent (runtime pathname))
- (file-case os-type
- ((dos nt os/2) "dospth")
- (else))
(initialization (initialize-package!)))
(define-package (runtime population)
#| -*-Scheme-*-
-$Id: runtime.pkg,v 14.325 1999/02/24 21:37:22 cph Exp $
+$Id: runtime.pkg,v 14.326 1999/03/04 05:56:18 cph Exp $
Copyright (c) 1988-1999 Massachusetts Institute of Technology
(initialization (initialize-package!)))
(define-package (runtime pathname unix)
+ (files "unxpth")
(parent (runtime pathname))
- (file-case os-type
- ((unix) "unxpth")
- (else))
(initialization (initialize-package!)))
(define-package (runtime pathname dos)
+ (files "dospth")
(parent (runtime pathname))
- (file-case os-type
- ((dos nt os/2) "dospth")
- (else))
(initialization (initialize-package!)))
(define-package (runtime population)