[armedbear-cvs] r11549 - trunk/abcl

[Erik Huelsmann]

Author: ehuelsmann
Date: Tue Jan  6 19:17:45 2009
New Revision: 11549

Log:
Silence compile warnings in SBCL by moving a function up.

Modified:
   trunk/abcl/build-abcl.lisp

Modified: trunk/abcl/build-abcl.lisp
==============================================================================
--- trunk/abcl/build-abcl.lisp	(original)
+++ trunk/abcl/build-abcl.lisp	Tue Jan  6 19:17:45 2009
@@ -13,6 +13,14 @@
 
 (in-package #:build-abcl)
 
+(defun safe-namestring (pathname)
+  (let ((string (namestring pathname)))
+    (when (position #\space string)
+      (setf string (concatenate 'string "\"" string "\"")))
+    string))
+
+
+
 ;; Platform detection.
 
 (defun platform ()
@@ -439,12 +447,6 @@
   (with-current-directory ((merge-pathnames "java/awt/" *abcl-dir*))
     (delete-files (directory "*.class"))))
 
-(defun safe-namestring (pathname)
-  (let ((string (namestring pathname)))
-    (when (position #\space string)
-      (setf string (concatenate 'string "\"" string "\"")))
-    string))
-
 (defun build-abcl (&key force
                         (batch t)
                         compile-system