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

[mevenson at common-lisp.net]

Author: mevenson
Date: Fri Jun 15 07:41:32 2012
New Revision: 13966

Log:
examples/misc/dotabclrc:  More contemporary examples.

Example for how to possibly dynamically load and install Quicklisp
(q.v.) from an HTTP connection.

Example of the nest of CL:REQUIRE statements needed to bring up the
Maven Aether connector contained in ABCL-ASDF.

Modified:
   trunk/abcl/examples/misc/dotabclrc

Modified: trunk/abcl/examples/misc/dotabclrc
==============================================================================
--- trunk/abcl/examples/misc/dotabclrc	Thu Jun 14 09:16:57 2012	(r13965)
+++ trunk/abcl/examples/misc/dotabclrc	Fri Jun 15 07:41:32 2012	(r13966)
@@ -1,11 +1,20 @@
 ;;; -*- Mode: Lisp -*-
 
-;;; See also:
-;;;   .clinit.cl         (Allegro)
-;;;   .cmucl-init.lisp   (CMUCL)
-;;;   .sbclrc            (SBCL)
-;;;   .clisprc.lisp      (CLISP)
-;;;   .lispworks         (LispWorks)
+;;; Possible codas 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/quiclisp.lisp"))
+  (unless (probe-file quicklisp-local)
+    (unless (probe-file quicklisp-remote)     ;;; XXX possibly search for a proxy÷
+      (load quicklisp-remote)))
+  (when (probe-file quicklisp-local)
+    (load quicklisp-local)))
+
+(require :asdf)
+(require :abcl-contrib)
+(require :abcl-asdf)
+(setf abcl-asdf::*maven-http-proxy* "http://localhost:3128/")
 
 ;;; Customize the procedure used by CL:DISASSEMBLE
 (setf *disassembler*