Changeset 11809

Timestamp:

05/01/09 19:26:40 (14 years ago)

Author:

ehuelsmann

Message:

Use a single routine to calculate the classfile pathname in two places.

File:

• trunk/abcl/src/org/armedbear/lisp/compile-file.lisp (modified) (2 diffs)

trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

@@ -40 +40 @@
 (defvar *output-file-pathname*)
 
+(declaim (ftype (function (t) t) compute-classfile-name))
+(defun compute-classfile-name (n &optional (output-file-pathname
+                                            *output-file-pathname*))
+  "Computes the name of the class file associated with number `n'."
+  (let ((name
+         (%format nil "~A-~D"
+                  (substitute #\_ #\.
+                              (pathname-name output-file-pathname)) n)))
+    (namestring (merge-pathnames (make-pathname :name name :type "cls")
+                                 output-file-pathname))))
+
 (declaim (ftype (function () t) next-classfile-name))
 (defun next-classfile-name ()
-  (let ((name (%format nil "~A-~D"
-                       (substitute #\_ #\. (pathname-name *output-file-pathname*))
-                       (incf *class-number*))))
-    (namestring (merge-pathnames (make-pathname :name name :type "cls")
-                                 *output-file-pathname*))))
+  (compute-classfile-name (incf *class-number*)))
 
 (defmacro report-error (&rest forms)
@@ -472 +479 @@
                  (pathnames ()))
             (dotimes (i *class-number*)
-              (let* ((file-namestring (%format nil "~A-~D.cls"
-                                               (substitute #\_ #\. (pathname-name output-file))
-                                               (1+ i)))
-                     (pathname (merge-pathnames file-namestring output-file)))
+              (let* ((pathname (compute-classfile-name (1+ i))))
                 (when (probe-file pathname)
                   (push pathname pathnames))))