/[gcl]/gcl/cmpnew/gcl_cmptop.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmptop.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.2.4.6.2.4.2 by camm, Fri May 6 21:56:55 2005 UTC revision 1.1.2.4.6.2.4.3 by camm, Sat May 7 14:40:32 2005 UTC
# Line 207  Line 207 
207    
208    (cond ((not sp) "code")    (cond ((not sp) "code")
209          ((not (pathnamep p)) (init-name (pathname p) sp gp dc nt))          ((not (pathnamep p)) (init-name (pathname p) sp gp dc nt))
210          ((not (string= (pathname-type p) "o"))          (gp (init-name (truename (merge-pathnames p #".lsp")) sp nil dc nt))
211           (init-name (merge-pathnames (make-pathname :type "o") p) sp gp dc nt))          ((pathname-type p)
212             (init-name (make-pathname
213                         :host (pathname-host p)
214                         :device (pathname-device p)
215                         :directory (pathname-directory p)
216                         :name (pathname-name p)
217                         :version (pathname-version p)) sp gp dc nt))
218          #-aosvs(dc (string-downcase (init-name p sp gp nil nt)))          #-aosvs(dc (string-downcase (init-name p sp gp nil nt)))
         (gp (init-name (truename p) sp nil dc nt))  
219          ((and nt          ((and nt
220                (let* ((pn (pathname-name p))                (let* ((pn (pathname-name p))
221                       (pp (make-pathname :name pn)))                       (pp (make-pathname :name pn)))

Legend:
Removed from v.1.1.2.4.6.2.4.2  
changed lines
  Added in v.1.1.2.4.6.2.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26