diff options
| author | Cyrus Harmon <cyrus@bobobeach.com> | 2017-06-10 06:43:05 -0700 |
|---|---|---|
| committer | Cyrus Harmon <cyrus@bobobeach.com> | 2017-06-12 17:15:53 -0700 |
| commit | c0b45681906f2a32ed3918bf1ddf8b68b2f9ce12 (patch) | |
| tree | 403449657ff7fb10e053f5ce8ded8f52e00c3120 /Apps/Scigraph | |
| parent | 6345af2f07ff12c83983ddf8535115571be73355 (diff) | |
remove file-type-for-binaries and file-type-for-sources
Diffstat (limited to 'Apps/Scigraph')
| -rw-r--r-- | Apps/Scigraph/dwim/extensions.lisp | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/Apps/Scigraph/dwim/extensions.lisp b/Apps/Scigraph/dwim/extensions.lisp index cdb54b9e..0b878d2d 100644 --- a/Apps/Scigraph/dwim/extensions.lisp +++ b/Apps/Scigraph/dwim/extensions.lisp @@ -152,25 +152,6 @@ advised of the possiblity of such damages. (declare (ignore v)) (not errorp))))) -(defun file-type-for-binaries () - #FEATURE-CASE - ((:genera si:*default-binary-file-type*) - ((or :allegro :sbcl) - #.(if (fboundp 'compile-file-pathname) - (pathname-type (compile-file-pathname "foo")) - "fasl")) - (:scl (pathname-type (compile-file-pathname "foo"))) - (:lucid (car lcl:*load-binary-pathname-types*)) - (:mcl #.(pathname-type ccl:*.fasl-pathname*)) - )) - -(defun file-type-for-sources () - #FEATURE-CASE - ((:genera "LISP") - (:unix "lisp") - (:mcl "lisp") - )) - ;;;************ ;;; DUMPER ;;;************ |