[Bug 518364] Re: trouble compiling/using cl-lml2 with sbcl and common-lisp-controller

[eivinh]

By changing from sb-unix:unix-file-name to impl::unix-file-name I get a package lock error:
Lock on package SB-IMPL violated when interning UNIX-FILE-KIND.
   [Condition of type PACKAGE-LOCKED-ERROR]

Changed source;
(defun probe-directory (filename &key (error-if-does-not-exist nil))
  (let* ((path (canonicalize-directory-name filename))
         (probe
          #+allegro (excl:probe-directory path)
          #+clisp (values
                   (ignore-errors
                     (#+lisp=cl ext:probe-directory
                                #-lisp=cl lisp:probe-directory
                                path)))
          #+(or cmu scl) (when (eq :directory
                                   (unix:unix-file-kind (namestring path)))
                           path)  
          #+lispworks (when (lw:file-directory-p path)
                        path)
          #+sbcl (when (eq :directory
;;                           (sb-unix:unix-file-kind (namestring path)))                                                     
                           (sb-impl::unix-file-kind (namestring path)))
                   path)
          #-(or allegro clisp cmu lispworks sbcl scl)
          (probe-file path)))
    (if probe
        probe
        (when error-if-does-not-exist
          (error "Directory ~A does not exist." filename)))))

By now it is probably evident that I am not too familiar with common-
lisp packages...

-- 
trouble compiling/using cl-lml2 with sbcl and common-lisp-controller
https://bugs.launchpad.net/bugs/518364
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.

-- 
ubuntu-bugs mailing list
ubuntu-bugs at lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs