hg.stevelosh.com > brows

0a3160c5895c 

Load `.browsrc` in the `brows` package
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sat, 26 May 2018 14:38:30 -0400
parents 2f0928adebb9
children 1d2776f7fa4a da80130c3bbf
branches/tags (none)
files src/main.lisp

Changes

--- a/src/main.lisp	Sat May 19 17:42:21 2018 -0400
+++ b/src/main.lisp	Sat May 26 14:38:30 2018 -0400
@@ -98,7 +98,8 @@
     (boots:draw canvas row 3 url)))
 
 (defun init ()
-  (load "~/.browsrc" :if-does-not-exist nil)
+  (let ((*package* (find-package :brows)))
+    (load "~/.browsrc" :if-does-not-exist nil))
   (setf *urls* (-<> "-"
                  read-input
                  process-input)))