Ignore:
Timestamp:
01/06/09 19:17:45 (13 years ago)
Author:
ehuelsmann
Message:

Silence compile warnings in SBCL by moving a function up.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/build-abcl.lisp

    r11354 r11549  
    1313
    1414(in-package #:build-abcl)
     15
     16(defun safe-namestring (pathname)
     17  (let ((string (namestring pathname)))
     18    (when (position #\space string)
     19      (setf string (concatenate 'string "\"" string "\"")))
     20    string))
     21
     22
    1523
    1624;; Platform detection.
     
    440448    (delete-files (directory "*.class"))))
    441449
    442 (defun safe-namestring (pathname)
    443   (let ((string (namestring pathname)))
    444     (when (position #\space string)
    445       (setf string (concatenate 'string "\"" string "\"")))
    446     string))
    447 
    448450(defun build-abcl (&key force
    449451                        (batch t)
Note: See TracChangeset for help on using the changeset viewer.