Ignore:
Timestamp:
May 27, 2009, 4:26:14 PM (10 years ago)
Author:
gb
Message:

OPEN-DUMPLISP-FILE: Um, don't err out if PREPEND-KERNEL wasn't specified.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/dumplisp.lisp

    r12130 r12138  
    222222
    223223(defun open-dumplisp-file (path &key (mode #o666) prepend-kernel)
    224   (let* ((prepend-path (if (eq prepend-kernel t)
    225                          (kernel-path)
    226                          (native-translated-namestring
    227                           (pathname prepend-kernel))))
    228          (prepend-fd (if prepend-kernel (fd-open prepend-path #$O_RDONLY)))
    229          (prepend-len (if (and prepend-fd (>= prepend-fd 0))
    230                         (skip-embedded-image prepend-fd)
    231                         (signal-file-error prepend-fd prepend-path)))
     224  (let* ((prepend-path (if prepend-kernel
     225                         (if (eq prepend-kernel t)
     226                           (kernel-path)
     227                           (native-translated-namestring
     228                          (pathname prepend-kernel)))))
     229         (prepend-fd (if prepend-path (fd-open prepend-path #$O_RDONLY)))
     230         (prepend-len (if prepend-kernel
     231                        (if (and prepend-fd (>= prepend-fd 0))
     232                          (skip-embedded-image prepend-fd)
     233                          (signal-file-error prepend-fd prepend-path))))
    232234         (filename (native-translated-namestring path)))
    233235    (when (probe-file filename)
Note: See TracChangeset for help on using the changeset viewer.