/[spray]/spray/load-first.lisp
ViewVC logotype

Contents of /spray/load-first.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Sun Sep 11 21:44:33 2005 UTC (8 years, 7 months ago) by san
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +4 -4 lines
Some minor installation changes.
1 san 1.1 ;; Steven's init file
2     ;; Mainly ASDF stuff that I will always need.
3    
4     ;; Load ASDF
5     (load "asdf/asdf.lisp")
6    
7     ;; Let ASDF know where our systems are
8     (dolist (dir '(
9     ;; You could add more directories here..
10     ;; or just add symlinks to ASD files in one of these dir's.
11 san 1.2 "steven/"
12     "steven/raytracer/"
13     "imago/src/"
14     "zlib/src/"
15 san 1.1 ))
16     (push dir asdf:*central-registry*))
17    
18     ;; Helper function to load systems
19     (defun asdf-load (compile? &rest system-names)
20     (when (eql system-names nil) (format t "No system names were given!"))
21     (dolist (system-name system-names)
22     (cond (compile?
23     (asdf:oos 'asdf:load-op system-name))
24     (t
25     (asdf:oos 'asdf:load-source-op system-name)))))
26    
27     ;; Load systems and use pkgs we frequently use
28     (asdf-load t :steven)
29     (use-package :an.steven.debug)
30    
31     ;; Define some useful things
32     (defalias in-pkg in-package)
33     (defalias use-pkg use-package)
34    

  ViewVC Help
Powered by ViewVC 1.1.5