dev-lisp/cl-acclaim/files/0.25-slides-pathname-gentoo.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

--- /var/tmp/portage/cl-acclaim-0.24/work/code/acclaim.lisp	2004-06-18 18:47:09.000000000 -0700
+++ /home/ejohnson/code/acclaim.lisp	2004-10-26 17:29:07.052686752 -0700
@@ -188,8 +188,13 @@
 ;;
 
 ;; Set this variable to non-nil if the slides should be loaded directly at load-time:
-(defvar *slides-pathname*
-  #p"/home/mgr/daten/coding/lisp/acclaim/slides/lisp-ist-toll.slides")
+(defvar *slides-pathname* nil)
+
+;; Added to create a .acclaimrc file which can be used to (setf *slides-pathname* "/path/to/slides") 
+(load (merge-pathnames
+                   (user-homedir-pathname) ; in cmucl I could have put "home:.acclaim"
+                   ".acclaim")              ; but I'm not sure if this is implementation specific
+      :if-does-not-exist nil)
 
 ;;;;;;;;;;;;;;;;;;;;;;;
 ;; Far too many variables..