PowerLoom 3.0.2.beta and SBCL 0.8.8

Paul Snively <[email protected]>
Newsgroups gmane.comp.ai.powerloom
Message-ID <[email protected]> 
Folks,

First, thanks to those of you who've contributed to Loom and PowerLoom 
over the years. It's been a real treat to follow its progress.

I'd lapsed on that for some time, but have recently gotten back to it 
after successfully bootstrapping SBCL 0.8.8 on my Mac OS X box. I had 
some very minor difficulties getting PowerLoom 3.0.2.beta to compile, 
which seem to be entirely due to some disagreement between how the 
supported CL implementations appear to implement certain pathname 
functions and how SBCL 0.8.8 does. Since SBCL appears to be somewhat 
more strongly ANSI-compliant in this regard, and the necessary changes 
don't appear to affect the other implementation that I have ready 
access to (OpenMCL 0.14.1), I have left these changes 
unconditionalized.

Unfortunately, attempting to run demo #1 reveals that there are still 
some issues in the port. To aid in tracking them down, I've extended 
the %%print-exception-context and %%get-exception-message functions to 
support SBCL and accomodate the type-error case, which is the condition 
I'm encountering, and one that is amenable to examining in an 
ANSI-portable way, thanks to type-error-datum and 
type-error-expected-type.

So finally we arrive at the problem; at a certain point in the demo, a 
type-error with datum NULL-VALUE and expected-type INSTANCE is being 
thrown. From a visual examination of the code, it would appear that 
NULL-VALUE is indeed null, which is indeed neither a CLOS instance nor 
a PowerLoom instance. Any advice here would be most welcome.

In the event that it would be desirable to support SBCL 0.8.8, I'm 
attaching my (very small) diffs to the PowerLoom 3.0.2.beta sources 
here.

Many thanks and best regards,
Paul Snively

_______________________________________________
powerloom-forum mailing list
[email protected]
http://mailman.isi.edu/mailman/listinfo/powerloom-forum
powerloom-3.0.2.beta-sbcl-diffs.txt (text/plain, 18.4 KB) 
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: api-support.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: arithmetic.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: backlinks.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: case-based.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: classify.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: descriptions.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: explanations.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: frame-support.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: generate.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: goal-caches.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: inference-caches.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: justifications.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: kif-in.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: kif-out.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: logic-in.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: logic-macros.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: loom-api.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: loom-support.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: loom-to-kif.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: machine-learning.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: neural-network.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: normalize.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: optimize.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: partial-match.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: pl-kernel-kb.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: pli.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: powerloom.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: print.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: propagate.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: propositions.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: query.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: rule-induction.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: rules.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: sequence-indices.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: specialists.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: specialize.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: startup-system.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: strategies.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/logic: whynot.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella/cl-lib: cl-primal.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella/cl-lib: cl-setup.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella/cl-lib: stella-to-cl.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: cl-translate-file.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: cl-translate.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: classes.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: collections.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: conses.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: contexts.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: cpp-class-out.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: cpp-output.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: cpp-translate-file.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: cpp-translate.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: date-time-parser.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: date-time.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: defclass.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: demons.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: describe.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: dynamic-literal-slots.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: dynamic-slots.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: foreach.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: hierarchy.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: idl-class-out.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: idl-output.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: idl-translate-file.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: idl-translate.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: iterators.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: java-class-out.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: java-output.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: java-translate-file.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: java-translate.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: lists.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: literals.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: macros.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: memoize.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: methods.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: modules.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: more-demons.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: name-utility.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: primal.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: read.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: startup-system.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: startup.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: stella-in.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: streams.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: symbols.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: systems.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: taxonomies.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: translate-file.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: type-predicates.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: walk.fasl
Only in /Tools/lisp/powerloom-3.0.2.beta/bin/lisp/stella: xml.fasl
diff -r -c /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.lisp /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.lisp
*** /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.lisp	Tue Oct 28 12:19:34 2003
--- /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.lisp	Mon Mar 15 07:41:23 2004
***************
*** 646,664 ****
    ;;  with native exceptions.
    ;; Note that the CL spec only requires defined message strings for
    ;;  subtypes of CL:SIMPLE-ERROR, not CL:ERROR in general.
!   (cl:if (cl:typep condition 'cl:simple-condition)
!     (cl:apply #'cl:format cl:nil 
! 	      (%%simple-condition-format-control condition)
! 	      (cl:simple-condition-format-arguments condition))
!     ""))
  
  (cl:defun %%print-exception-context (condition stream)
    ;; System dependent printing of error context
!   (cl:declare (cl:ignore condition))
    (cl:let ((cl:*debug-io* stream))
      #+:EXCL (tpl::zoom-print-stack-1 stream 20)
      #+:MCL  (ccl:print-call-history)
      #+:CMU  (debug:backtrace)
      ))
  
  ;;; %%translate-logical-pathname
--- 646,667 ----
    ;;  with native exceptions.
    ;; Note that the CL spec only requires defined message strings for
    ;;  subtypes of CL:SIMPLE-ERROR, not CL:ERROR in general.
!   (cl:cond ((cl:typep condition 'cl:simple-condition)
! 	    (cl:apply #'cl:format cl:nil
! 		      (%%simple-condition-format-control condition)
! 		      (cl:simple-condition-format-arguments condition)))
! 	   ((cl:typep condition 'cl:type-error)
! 	    (cl:format cl:nil "~a is not of the expected type: ~a~%" (cl:type-error-datum condition) (cl:type-error-expected-type condition)))
! 	   (cl:t "")))
  
  (cl:defun %%print-exception-context (condition stream)
    ;; System dependent printing of error context
!   #-sbcl (cl:declare (cl:ignore condition))
    (cl:let ((cl:*debug-io* stream))
      #+:EXCL (tpl::zoom-print-stack-1 stream 20)
      #+:MCL  (ccl:print-call-history)
      #+:CMU  (debug:backtrace)
+     #+:sbcl (cl:format cl:*debug-io* (%%get-exception-message condition))
      ))
  
  ;;; %%translate-logical-pathname
diff -r -c /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.slisp /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.slisp
*** /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.slisp	Tue Oct 28 12:23:58 2003
--- /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/cl-lib/cl-setup.slisp	Mon Mar 15 07:41:33 2004
***************
*** 646,664 ****
    ;;  with native exceptions.
    ;; Note that the CL spec only requires defined message strings for
    ;;  subtypes of CL:SIMPLE-ERROR, not CL:ERROR in general.
!   (cl:if (cl:typep condition 'cl:simple-condition)
!     (cl:apply #'cl:format cl:nil 
! 	      (%%simple-condition-format-control condition)
! 	      (cl:simple-condition-format-arguments condition))
!     ""))
  
  (cl:defun %%print-exception-context (condition stream)
    ;; System dependent printing of error context
!   (cl:declare (cl:ignore condition))
    (cl:let ((cl:*debug-io* stream))
      #+:EXCL (tpl::zoom-print-stack-1 stream 20)
      #+:MCL  (ccl:print-call-history)
      #+:CMU  (debug:backtrace)
      ))
  
  ;;; %%translate-logical-pathname
--- 646,667 ----
    ;;  with native exceptions.
    ;; Note that the CL spec only requires defined message strings for
    ;;  subtypes of CL:SIMPLE-ERROR, not CL:ERROR in general.
!   (cl:cond ((cl:typep condition 'cl:simple-condition)
! 	    (cl:apply #'cl:format cl:nil
! 		      (%%simple-condition-format-control condition)
! 		      (cl:simple-condition-format-arguments condition)))
! 	   ((cl:typep condition 'cl:type-error)
! 	    (cl:format cl:nil "~a is not of the expected type: ~a~%" (cl:type-error-datum condition) (cl:type-error-expected-type condition)))
! 	    (cl:t "")))
  
  (cl:defun %%print-exception-context (condition stream)
    ;; System dependent printing of error context
!   #-sbcl (cl:declare (cl:ignore condition))
    (cl:let ((cl:*debug-io* stream))
      #+:EXCL (tpl::zoom-print-stack-1 stream 20)
      #+:MCL  (ccl:print-call-history)
      #+:CMU  (debug:backtrace)
+     #+:sbcl (cl:format cl:*debug-io* (%%get-exception-message condition))
      ))
  
  ;;; %%translate-logical-pathname
diff -r -c /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/load-stella.lisp /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/load-stella.lisp
*** /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/load-stella.lisp	Tue Oct 28 12:19:34 2003
--- /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/load-stella.lisp	Sun Mar 14 13:40:25 2004
***************
*** 82,92 ****
            (*load-cl-struct-stella?* ".slisp")
            (t *stella-lisp-extension*)))
  (defvar *stella-binary-extension*
      (format nil ".~a~a"
              (cond (*load-vector-struct-stella?* "vs")
                    (*load-cl-struct-stella?* "s")
                    (t ""))
! 	    (CL:subseq (CL:namestring (cl:compile-file-pathname "f.lisp")) 2)))
  #+:lispworks
  (pushnew "sfasl" system::*binary-file-types* :test #'equal)
  #+:lispworks
--- 82,96 ----
            (*load-cl-struct-stella?* ".slisp")
            (t *stella-lisp-extension*)))
  (defvar *stella-binary-extension*
+   (let* ((temp-pathname (cl:compile-file-pathname "f.lisp"))
+ 	(just-filename (cl:make-pathname :host nil :directory nil
+ 					 :name (cl:pathname-name temp-pathname)
+ 					 :type (cl:pathname-type temp-pathname))))
      (format nil ".~a~a"
              (cond (*load-vector-struct-stella?* "vs")
                    (*load-cl-struct-stella?* "s")
                    (t ""))
! 	    (CL:subseq (CL:namestring just-filename) 2))))
  #+:lispworks
  (pushnew "sfasl" system::*binary-file-types* :test #'equal)
  #+:lispworks
diff -r -c /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/translate-file.lisp /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/translate-file.lisp
*** /Users/psnively/Desktop/powerloom-3.0.2.beta/native/lisp/stella/translate-file.lisp	Tue Oct 28 12:23:20 2003
--- /Tools/lisp/powerloom-3.0.2.beta/native/lisp/stella/translate-file.lisp	Sun Mar 14 14:59:18 2004
***************
*** 964,970 ****
         KWD-TRANSLATE-FILE-USE-COMMON-LISP-VECTOR-STRUCTS)
        (CL:SETQ DUMMYPATHNAME "f.vsfasl"))
       (CL:T  (cl:setq dummyPathName 
!                     (CL:namestring (cl:compile-file-pathname dummyPathName))))))
     (CL:RETURN-FROM COMPUTE-COMMON-LISP-FILE-EXTENSION
      (SUBSEQUENCE DUMMYPATHNAME 1 NULL-INTEGER))))
  (CL:DECLAIM
--- 964,975 ----
         KWD-TRANSLATE-FILE-USE-COMMON-LISP-VECTOR-STRUCTS)
        (CL:SETQ DUMMYPATHNAME "f.vsfasl"))
       (CL:T  (cl:setq dummyPathName 
! 		     (cl:let* ((temp-pathname (cl:compile-file-pathname dummyPathName))
! 			    (just-filename (cl:make-pathname :host nil
! 							     :directory nil
! 							     :name (cl:pathname-name temp-pathname)
! 							     :type (cl:pathname-type temp-pathname))))
! 		       (CL:namestring just-filename))))))
     (CL:RETURN-FROM COMPUTE-COMMON-LISP-FILE-EXTENSION
      (SUBSEQUENCE DUMMYPATHNAME 1 NULL-INTEGER))))
  (CL:DECLAIM
diff -r -c /Users/psnively/Desktop/powerloom-3.0.2.beta/sources/stella/cl-lib/cl-setup.lisp /Tools/lisp/powerloom-3.0.2.beta/sources/stella/cl-lib/cl-setup.lisp
*** /Users/psnively/Desktop/powerloom-3.0.2.beta/sources/stella/cl-lib/cl-setup.lisp	Tue Jul 29 17:34:49 2003
--- /Tools/lisp/powerloom-3.0.2.beta/sources/stella/cl-lib/cl-setup.lisp	Mon Mar 15 07:41:41 2004
***************
*** 646,664 ****
    ;;  with native exceptions.
    ;; Note that the CL spec only requires defined message strings for
    ;;  subtypes of CL:SIMPLE-ERROR, not CL:ERROR in general.
!   (cl:if (cl:typep condition 'cl:simple-condition)
!     (cl:apply #'cl:format cl:nil 
! 	      (%%simple-condition-format-control condition)
! 	      (cl:simple-condition-format-arguments condition))
!     ""))
  
  (cl:defun %%print-exception-context (condition stream)
    ;; System dependent printing of error context
!   (cl:declare (cl:ignore condition))
    (cl:let ((cl:*debug-io* stream))
      #+:EXCL (tpl::zoom-print-stack-1 stream 20)
      #+:MCL  (ccl:print-call-history)
      #+:CMU  (debug:backtrace)
      ))
  
  ;;; %%translate-logical-pathname
--- 646,667 ----
    ;;  with native exceptions.
    ;; Note that the CL spec only requires defined message strings for
    ;;  subtypes of CL:SIMPLE-ERROR, not CL:ERROR in general.
!   (cl:cond ((cl:typep condition 'cl:simple-condition)
! 	    (cl:apply #'cl:format cl:nil
! 		      (%%simple-condition-format-control condition)
! 		      (cl:simple-condition-format-arguments condition)))
! 	   ((cl:typep condition 'cl:type-error)
! 	    (cl:format cl:nil "~a is not of the expected type: ~a~%" (cl:type-error-datum condition) (cl:type-error-expected-type condition)))
! 	   (cl:t "")))
  
  (cl:defun %%print-exception-context (condition stream)
    ;; System dependent printing of error context
!   #-sbcl (cl:declare (cl:ignore condition))
    (cl:let ((cl:*debug-io* stream))
      #+:EXCL (tpl::zoom-print-stack-1 stream 20)
      #+:MCL  (ccl:print-call-history)
      #+:CMU  (debug:backtrace)
+     #+:sbcl (cl:format cl:*debug-io* (%%get-exception-message condition))
      ))
  
  ;;; %%translate-logical-pathname
diff -r -c /Users/psnively/Desktop/powerloom-3.0.2.beta/sources/stella/load-stella.lisp /Tools/lisp/powerloom-3.0.2.beta/sources/stella/load-stella.lisp
*** /Users/psnively/Desktop/powerloom-3.0.2.beta/sources/stella/load-stella.lisp	Fri Oct 24 12:33:25 2003
--- /Tools/lisp/powerloom-3.0.2.beta/sources/stella/load-stella.lisp	Sun Mar 14 14:28:19 2004
***************
*** 82,92 ****
            (*load-cl-struct-stella?* ".slisp")
            (t *stella-lisp-extension*)))
  (defvar *stella-binary-extension*
      (format nil ".~a~a"
              (cond (*load-vector-struct-stella?* "vs")
                    (*load-cl-struct-stella?* "s")
                    (t ""))
! 	    (CL:subseq (CL:namestring (cl:compile-file-pathname "f.lisp")) 2)))
  #+:lispworks
  (pushnew "sfasl" system::*binary-file-types* :test #'equal)
  #+:lispworks
--- 82,97 ----
            (*load-cl-struct-stella?* ".slisp")
            (t *stella-lisp-extension*)))
  (defvar *stella-binary-extension*
+   (let* ((temp-pathname (cl:compile-file-pathname "f.lisp"))
+ 	 (just-filename (cl:make-pathname :host nil
+ 					  :directory nil
+ 					  :name (pathname-name temp-pathname)
+ 					  :type (pathname-type temp-pathname))))
      (format nil ".~a~a"
              (cond (*load-vector-struct-stella?* "vs")
                    (*load-cl-struct-stella?* "s")
                    (t ""))
! 	    (CL:subseq (CL:namestring just-filename) 2))))
  #+:lispworks
  (pushnew "sfasl" system::*binary-file-types* :test #'equal)
  #+:lispworks
diff -r -c /Users/psnively/Desktop/powerloom-3.0.2.beta/sources/stella/translate-file.ste /Tools/lisp/powerloom-3.0.2.beta/sources/stella/translate-file.ste
*** /Users/psnively/Desktop/powerloom-3.0.2.beta/sources/stella/translate-file.ste	Thu Oct 23 10:08:02 2003
--- /Tools/lisp/powerloom-3.0.2.beta/sources/stella/translate-file.ste	Sun Mar 14 14:59:10 2004
***************
*** 698,704 ****
               (verbatim
                 :common-lisp
                 " (cl:setq dummyPathName 
!                     (CL:namestring (cl:compile-file-pathname dummyPathName)))"
                 :otherwise NULL))))
  
      ;; Extract just the extension.  The filename was set to "f" in the
--- 698,709 ----
               (verbatim
                 :common-lisp
                 " (cl:setq dummyPathName 
! 		   (cl:let* ((temp-pathname (cl:compile-file-pathname dummyPathName))
! 			  (just-filename (cl:make-pathname :host nil
! 							   :directory nil
! 							   :name (cl:pathname-name temp-pathname)
! 							   :type (cl:pathname-type temp-pathname))))
!                     (CL:namestring just-filename)))"
                 :otherwise NULL))))
  
      ;; Extract just the extension.  The filename was set to "f" in the
PGP.sig (application/pgp-signature, 194 B) - not displayed
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.