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

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Aug 14 05:16:11 2012
New Revision: 14085

Log:
examples/misc:  fix installation of Quicklisp from scratch.

Modified:
   trunk/abcl/examples/misc/dotabclrc

Modified: trunk/abcl/examples/misc/dotabclrc
==============================================================================
--- trunk/abcl/examples/misc/dotabclrc	Tue Aug 14 05:13:42 2012	(r14084)
+++ trunk/abcl/examples/misc/dotabclrc	Tue Aug 14 05:16:11 2012	(r14085)
@@ -1,16 +1,18 @@
 ;;; -*- Mode: Lisp -*-
 
-;;; Possible codas for inclusion in the Armed Bear startup file #p"~/.abclrc"
+;;; Possible code for inclusion in the Armed Bear startup file #p"~/.abclrc"
 
 #-quicklisp
 (let ((quicklisp-local  #P"~/quicklisp/setup.lisp")
       (quicklisp-remote #p"http://beta.quicklisp.org/quicklisp.lisp"))
   (unless (probe-file quicklisp-local)
     (when (probe-file quicklisp-remote)     ;;; XXX possibly search for a proxy÷
-      (load quicklisp-remote)))
+      (load quicklisp-remote)
+      (funcall (intern (symbol-name 'install) :quicklisp-quickstart))))
   (when (probe-file quicklisp-local)
     (load quicklisp-local)))
 
+;; 
 (require :asdf)
 (require :abcl-contrib)
 (require :abcl-asdf)