[armedbear-cvs] r13969 - trunk/abcl/examples/misc

[mevenson at common-lisp.net]

Author: mevenson
Date: Sat Jun 16 15:02:34 2012
New Revision: 13969

Log:
examples:  fix obvious errors.

Modified:
   trunk/abcl/examples/misc/dotabclrc

Modified: trunk/abcl/examples/misc/dotabclrc
==============================================================================
--- trunk/abcl/examples/misc/dotabclrc	Sat Jun 16 03:45:26 2012	(r13968)
+++ trunk/abcl/examples/misc/dotabclrc	Sat Jun 16 15:02:34 2012	(r13969)
@@ -4,9 +4,9 @@
 
 #-quicklisp
 (let ((quicklisp-local  #P"~/quicklisp/setup.lisp")
-      (quicklisp-remote #p"http://beta.quicklisp.org/quiclisp.lisp"))
+      (quicklisp-remote #p"http://beta.quicklisp.org/quicklisp.lisp"))
   (unless (probe-file quicklisp-local)
-    (unless (probe-file quicklisp-remote)     ;;; XXX possibly search for a proxy÷
+    (when (probe-file quicklisp-remote)     ;;; XXX possibly search for a proxy÷
       (load quicklisp-remote)))
   (when (probe-file quicklisp-local)
     (load quicklisp-local)))