Changeset 7364


Ignore:
Timestamp:
Oct 5, 2007, 8:23:32 PM (12 years ago)
Author:
gz
Message:

conditionalize lisp-implementation-type, application-init-file and add home:ccl;modules; to module search path

Location:
trunk/ccl/level-1
Files:
3 edited

Legend:

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

    r7281 r7364  
    293293
    294294(defmethod application-init-file ((app lisp-development-system))
    295   "home:openmcl-init")
    296 
     295  #+clozure-common-lisp "home:ccl-init"  ;; This is the init file loaded before cocoa.
     296  #-clozure-common-lisp "home:openmcl-init")
    297297
    298298(defmethod application-error ((a application) condition error-pointer)
  • trunk/ccl/level-1/l1-boot-1.lisp

    r4827 r7364  
    3030|#
    3131
    32 (defun lisp-implementation-type () "OpenMCL")
     32(defun lisp-implementation-type ()
     33  #+clozure-common-lisp "Clozure Common Lisp"
     34  #-clozure-common-lisp "OpenMCL")
    3335
    3436
  • trunk/ccl/level-1/l1-pathnames.lisp

    r6941 r7364  
    702702                                    (cons-pathname '(:absolute "bin") nil nil "ccl")
    703703                                    (cons-pathname  '(:absolute "openmcl" "modules") nil nil "home")
     704                                    (cons-pathname '(:absolute "ccl" "modules") nil nil "home")
    704705                                    (cons-pathname '(:absolute "lib") nil nil "ccl")
    705706                                    (cons-pathname '(:absolute "library") nil nil "ccl")
Note: See TracChangeset for help on using the changeset viewer.