--- a/sand.asd Wed Dec 07 15:12:32 2016 -0500
+++ b/sand.asd Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(asdf:defsystem #:sand
+(asdf:defsystem :sand
:name "sand"
:description "A little sandbox to play around in."
--- a/src/ascii.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/ascii.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.ascii)
+(in-package :sand.ascii)
(defparameter *running* nil)
--- a/src/binary-decision-diagrams.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/binary-decision-diagrams.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.binary-decision-diagrams)
+(in-package :sand.binary-decision-diagrams)
(deftype non-negative-fixnum ()
`(integer 0 ,most-positive-fixnum))
--- a/src/color-difference.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/color-difference.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.color-difference)
+(in-package :sand.color-difference)
; https://en.wikipedia.org/wiki/Color_difference
--- a/src/dijkstra-maps.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/dijkstra-maps.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.dijkstra-maps)
+(in-package :sand.dijkstra-maps)
(defclass dijkstra-map ()
--- a/src/ffi.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/ffi.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.ffi)
+(in-package :sand.ffi)
;;;; Library ------------------------------------------------------------------
--- a/src/graphs.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/graphs.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.graphs)
+(in-package :sand.graphs)
(defun make-edge (from to)
--- a/src/graphviz.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/graphviz.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.graphviz)
+(in-package :sand.graphviz)
(defun graphviz-node (id &key (label id) (shape :box))
(format t " ~A [shape=~(~A~),label=\"~A\"];~%"
--- a/src/huffman-trees.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/huffman-trees.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.huffman-trees)
+(in-package :sand.huffman-trees)
;;;; Data ---------------------------------------------------------------------
;;; Interface:
--- a/src/markov.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/markov.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.markov)
+(in-package :sand.markov)
; (defparameter *text*
; (read-file-into-string "data/lightships-and-lighthouses.txt"))
--- a/src/number-letters.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/number-letters.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.number-letters)
+(in-package :sand.number-letters)
; https://www.youtube.com/watch?v=LYKn0yUTIU4
--- a/src/parenscript/compiler.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/parenscript/compiler.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.parenscript)
+(in-package :sand.parenscript)
(defun compile-parenscript-file (source)
(let* ((source-path (pathname source))
--- a/src/parenscript/hello.paren Wed Dec 07 15:12:32 2016 -0500
+++ b/src/parenscript/hello.paren Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:cl-user)
+(in-package :cl-user)
(defun say-hello (name)
(alert (+ "Hello, " name "!")))
--- a/src/primes.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/primes.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.primes)
+(in-package :sand.primes)
(define-constant carmichael-numbers ; from oeis
'(561 1105 1729 2465 2821 6601 8911 10585 15841 29341 41041 46657 52633
--- a/src/profiling.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/profiling.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.profiling)
+(in-package :sand.profiling)
#+sbcl
(defun dump-profile ()
--- a/src/random-numbers.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/random-numbers.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.random-numbers)
+(in-package :sand.random-numbers)
;;;; Types, etc
--- a/src/sketch.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/sketch.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.sketch)
+(in-package :sand.sketch)
;;;; Config
; (setf *bypass-cache* t)
--- a/src/streams.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/streams.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.streams)
+(in-package :sand.streams)
;;;; Streams from SICP
--- a/src/terrain/diamond-square.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/terrain/diamond-square.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.terrain.diamond-square)
+(in-package :sand.terrain.diamond-square)
--- a/src/utils.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/utils.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.utils)
+(in-package :sand.utils)
(defun average4 (a b c d)
--- a/src/zero-suppressed-decision-diagrams.lisp Wed Dec 07 15:12:32 2016 -0500
+++ b/src/zero-suppressed-decision-diagrams.lisp Wed Dec 07 15:14:38 2016 -0500
@@ -1,4 +1,4 @@
-(in-package #:sand.zero-suppressed-decision-diagrams)
+(in-package :sand.zero-suppressed-decision-diagrams)
(adt:defdata zdd
empty