Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

ql:quickload "clpython" fails in Lispworks 6.1.1 on Ubuntu #9

Closed
jdcal opened this issue Feb 11, 2013 · 2 comments
Closed

ql:quickload "clpython" fails in Lispworks 6.1.1 on Ubuntu #9

jdcal opened this issue Feb 11, 2013 · 2 comments

Comments

@jdcal
Copy link

jdcal commented Feb 11, 2013

After ql:quickload "clpython", the packages were downloaded and they began to be processed:

...
[package clpython.module].........................
[package clpython]................................
[package clpython.app.repl]......
Error: No translations for logical pathname host "TEMPORARY-FILES".
1 (continue) Try loading /home/caldwell/.cache/common-lisp/lw-6.1.1-linux-x64/home/caldwell/quicklisp/dists/quicklisp/software/temporary-file-20120909-git/temporary-file.64ufasl again.
...

@metawilm
Copy link
Owner

Thanks for the report.

From the restart it seems that you have a problem loading the system "temporary-file".
If so, please report it to: https://github.com/hanshuebner/temporary-file

You might be able to work around it, by applying these two changes:

--- a/clpython.asd
+++ b/clpython.asd
@@ -69,7 +69,7 @@
 (asdf:defsystem :clpython.runtime
     :description "Python runtime environment"
-    :depends-on (:clpython.basic :closer-mop #+ecl :cl-custom-hash-table :temporary-file)
+    :depends-on (:clpython.basic :closer-mop #+ecl :cl-custom-hash-table #+(or):temporary-file)
     :components ((:module "runtime"
                           :serial t
--- a/runtime/import.lisp
+++ b/runtime/import.lisp
@@ -81,7 +81,13 @@ When FILENAME-ITEMS is (:A :B :C) result could look like #p'/tmp/clpython-A.B.C-
 Might signal TEMPORARY-FILE:CANNOT-CREATE-TEMPORARY-FILE"
   (whereas ((file-name (gethash key *temp-file-map*)))
            (return-from get-temporary-file file-name))
-  (let ((file-stream (temporary-file:open-temporary :template (format nil "TEMPORARY-FILES:~{~A~^-~}-%" filename-items)
+  (let ((file-stream
+         (open (format nil "/tmp/~{~A~^-~}" filename-items)
+               :direction :output
+               :if-exists :overwrite
+               :if-does-not-exist :create)
+         #+(or)
+         (temporary-file:open-temporary :template (format nil "TEMPORARY-FILES:~{~A~^-~}-%" filename-items)
                                                    :direction :output)))
     (prog1 (setf (gethash key *temp-file-map*) (pathname file-stream))
       (close file-stream))))

@metawilm
Copy link
Owner

This should be fixed by the switch from TEMPORARY-FILE to CL-FAD in change f95385a.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

2 participants