Changeset 10914 for trunk/source/level-1


Ignore:
Timestamp:
Sep 29, 2008, 2:37:02 AM (12 years ago)
Author:
rme
Message:

On Unix systems, if "ccl-init" is not present, try to load ".ccl-init".
No longer try to load (or warn about) openmcl-init. Upate manual
to reflect these changes.

(ticket:337)

Location:
trunk/source/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-application.lisp

    r10823 r10914  
    302302(defmethod application-init-file ((app lisp-development-system))
    303303  ;; This is the init file loaded before cocoa.
    304   #+clozure-common-lisp '("home:ccl-init" "home:openmcl-init") ;; transitional kludge
    305   #-clozure-common-lisp "home:openmcl-init")
     304  #+unix '("home:ccl-init" "home:\\.ccl-init")
     305  #+windows "home:ccl-init")
    306306
    307307(defmethod application-error ((a application) condition error-pointer)
  • trunk/source/level-1/l1-boot-lds.lisp

    r8914 r10914  
    3333        (with-simple-restart (continue "Skip loading init file.")
    3434          (when (load init-file :if-does-not-exist nil :verbose nil)
    35             #+clozure-common-lisp ;; Kludge to help people transition
    36             (when (equalp (pathname-name init-file) "openmcl-init")
    37               (warn ">>>>>> The use of openmcl-init.lisp is deprecated.  Please rename your init file to ccl-init.lisp"))
    3835            (return)))))
    3936    (flet ((eval-string (s)
Note: See TracChangeset for help on using the changeset viewer.