/[gcl]/gcl/ansi-tests/load.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/load.lsp

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

revision 1.4 by pfdietz, Wed Apr 13 13:39:23 2005 UTC revision 1.5 by pfdietz, Wed Apr 13 13:45:40 2005 UTC
# Line 132  Line 132 
132       (notnot (load file))       (notnot (load file))
133       (let ((p1 (pathname (merge-pathnames file)))       (let ((p1 (pathname (merge-pathnames file)))
134             (p2 (funcall 'load-file-test-fun.1)))             (p2 (funcall 'load-file-test-fun.1)))
135         (or (equalpt p1 p2)         (equalpt-or-report p1 p2))
            (list p1 p2)))  
136       (let ((p1 (truename file))       (let ((p1 (truename file))
137             (p2 (funcall 'load-file-test-fun.2)))             (p2 (funcall 'load-file-test-fun.2)))
138         (or (equalpt p1 p2)         (equalpt-or-report p1 p2))))
            (list p1 p2)))))  
139    t t t)    t t t)
140    
141  ;;; Test that the load pathname/truename variables are bound  ;;; Test that the load pathname/truename variables are bound
# Line 154  Line 152 
152      (values      (values
153       (let ((p1 (pathname (merge-pathnames target)))       (let ((p1 (pathname (merge-pathnames target)))
154             (p2 *load-test-var.1*))             (p2 *load-test-var.1*))
155         (or (equalpt p1 p2)         (equalpt-or-report p1 p2))
            (list p1 p2)))  
156       (let ((p1 (truename target))       (let ((p1 (truename target))
157             (p2 *load-test-var.2*))             (p2 *load-test-var.2*))
158         (or (equalpt p1 p2)         (equalpt-or-report p1 p2))))
            (list p1 p2)))))  
159    t t)    t t)
160    
161  (deftest load.19  (deftest load.19

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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