Bug in compile-file

Hello,

It looks like there's a bug in COMPILE-FILE.

If you use the :output-file keyword with more than one level of
directory things seem to go wrong:


snapdragon:~/lisp > lisp
CMU Common Lisp 19a pre-release 12-Jan-2003, running on snapdragon.csl.sri.com
With core: /usr/local/lib/cmucl/lib/lisp.core
Dumped on: Mon, 2004-01-12 10:24:37-08:00 on snapdragon.csl.sri.com
Send questions and bug reports to gilham, 
or see <URL:http://www.cons.org/cmucl/support.html>.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS based on Gerd's PCL 2003/06/18 09:23:09
    Gray Streams Protocol Support
    CLX X Library MIT R5.02
* (compile-file "junk/holly" :output-file "junk/junk-bin/holly.x86f")

Type-error in KERNEL::OBJECT-NOT-SIMPLE-STRING-ERROR-HANDLER:
   NIL is not of type SIMPLE-STRING
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(LISP::PICK-BACKUP-NAME 1 NIL)[:EXTERNAL]
0] backtrace

0: (LISP::PICK-BACKUP-NAME 1 NIL)[:EXTERNAL]
1: (LISP::FD-OPEN #p"junk/junk/junk-bin/holly.x86f"
                  :OUTPUT
                  #<unavailable-arg>
                  T
                  ...)
2: (LISP::OPEN-FD-STREAM #p"junk/junk/junk-bin/holly.x86f"
                         :DIRECTION
                         :OUTPUT
                         :ELEMENT-TYPE
                         ...)
3: (C::OPEN-FASL-FILE #p"junk/junk/junk-bin/holly.x86f" "junk/holly.lisp" NIL)
4: (COMPILE-FILE "junk/holly"
                 :OUTPUT-FILE
                 "junk/junk-bin/holly.x86f"
                 :ERROR-FILE
                 ...)
5: (INTERACTIVE-EVAL
    (COMPILE-FILE "junk/holly" :OUTPUT-FILE "junk/junk-bin/holly.x86f"))
6: (LISP::%TOP-LEVEL)
7: ((LABELS LISP::RESTART-LISP
      SAVE-LISP))

0] 


For some reason an extra instance of the leading directory gets
prepended to the pathname.

-- 
Fred Gilham                                        gilham@xxxxxxxxxxx
``This is mere entertainment featuring fictional characters. No real
human relationships were shattered in the making of this TV series.''