/[de-setf-amqp]/readmes/build-init.lisp
ViewVC logotype

Contents of /readmes/build-init.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3 - (show annotations)
Tue Feb 23 09:05:39 2010 UTC (4 years, 1 month ago) by janderson
File size: 1513 byte(s)
Merge commit 'remotes/github/master' into remotes/git-svn
1 ;;;
2 ;;; 2010-02-08 janderson
3 ;;;
4 ;;; sbcl build file for de.setf.amqp
5
6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7
8 (in-package :cl-user)
9
10 ;; universal comment-reader
11
12 (defun |universal-comment-reader| (stream char)
13 (declare (ignore char))
14 (loop (case (read-char stream nil nil)
15 ((#\return #\linefeed nil) (return))
16 (t )))
17 (values))
18
19 (set-macro-character #\; '|universal-comment-reader|)
20
21
22 ;;; (setq *load-verbose* (setq *compile-verbose* t))
23
24 ;;; adjust these paths to your environment
25 (load #p"/Development/Source/production/Library/net/common-lisp/asdf/asdf")
26 (load #p"/Development/Source/dev/Library/de/setf/utility/asdf/hierarchical-names.lisp")
27
28 ;;; search first the dev sources, then production
29 ;;; in order to load module cross-references, dedicated registration
30 ;;; are unavoidable - check them last, in order that hierarchic system
31 ;;; designators be generated as nicknames
32 (map nil
33 #'(lambda (directory)
34 (when (probe-file directory)
35 (pushnew directory asdf:*central-registry* :test #'equalp)))
36 '(#p"/Development/Source/production/Library/asdf-registry/"
37 #p"/Development/Source/dev/Library/asdf-registry/"
38 #p"/Development/Source/production/Library/"
39 #p"/Development/Source/dev/Library/"))
40
41
42 #+(or )
43 (progn
44 (asdf:operate 'asdf:load-op :de.setf.amqp.amqp-1-1-0-8-0)
45 (asdf:operate 'asdf:load-op :de.setf.amqp.amqp-1-1-0-9-0)
46 (asdf:operate 'asdf:load-op :de.setf.amqp.amqp-1-1-0-9-1))
47

  ViewVC Help
Powered by ViewVC 1.1.5