Changeset 11998
- Timestamp:
- May 5, 2009, 12:59:01 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/cocoa-ide/app-delegate.lisp
r11992 r11998 33 33 (lisp-string-from-nsstring parent)))) 34 34 (ccl::replace-base-translation "ccl:" path))) 35 35 36 37 (defvar *ccl-ide-init-file* "home:ccl-ide-init") 38 39 ;;; Errors that occur while this file is loading will enter a break 40 ;;; loop, with *DEBUG-IO* connected to the terminal/Emacs, to AltConsole, 41 ;;; or to /dev/null and syslog. 42 (defun load-ide-init-file () 43 (with-simple-restart (continue "Skip loading IDE init file.") 44 (load *ccl-ide-init-file* :if-does-not-exist nil :verbose nil))) 36 45 37 46 (objc:defmethod (#/applicationWillFinishLaunching: :void) … … 39 48 (declare (ignore notification)) 40 49 (initialize-user-interface) 41 (let* ((c (#/init (#/alloc console-window)))) 42 (unless (%null-ptr-p c) 43 (setf (console *nsapp*) c)))) 50 (load-ide-init-file)) 44 51 45 52 (objc:defmethod (#/applicationWillTerminate: :void)
Note: See TracChangeset
for help on using the changeset viewer.