Permalink
Browse files

--no-sysinit => --no-siteinit

  • Loading branch information...
1 parent 167de59 commit 5db24240ef7aee0c25db85ecdaa29fb258a822f3 @gnooth committed Mar 27, 2011
Showing with 4 additions and 4 deletions.
  1. +4 −4 lisp/load-initialization-files.lisp
@@ -22,15 +22,15 @@
(defun load-initialization-files ()
(let ((args (cdr sys:*argv*))
- (no-sysinit nil)
+ (no-siteinit nil)
(no-userinit nil))
(when args
(dolist (arg args)
- (cond ((equal arg "--no-sysinit")
- (setq no-sysinit t))
+ (cond ((equal arg "--no-siteinit")
+ (setq no-siteinit t))
((equal arg "--no-userinit")
(setq no-userinit t)))))
- (unless no-sysinit
+ (unless no-siteinit
(let ((sysinit (or (probe-file (merge-pathnames "xclrc" *xcl-home*))
#-win32
(probe-file "/etc/xclrc"))))

0 comments on commit 5db2424

Please sign in to comment.