# HG changeset patch # User Steve Losh # Date 1481141678 18000 # Node ID 184af4c4e8fc9293dc6c578e7d27731697a29de8 # Parent 09407f2a9764ec5ef33a7628dc7fd0889bd09200 Fewer #'s diff -r 09407f2a9764 -r 184af4c4e8fc sand.asd --- 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." diff -r 09407f2a9764 -r 184af4c4e8fc src/ascii.lisp --- 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) diff -r 09407f2a9764 -r 184af4c4e8fc src/binary-decision-diagrams.lisp --- 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)) diff -r 09407f2a9764 -r 184af4c4e8fc src/color-difference.lisp --- 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 diff -r 09407f2a9764 -r 184af4c4e8fc src/dijkstra-maps.lisp --- 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 () diff -r 09407f2a9764 -r 184af4c4e8fc src/ffi.lisp --- 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 ------------------------------------------------------------------ diff -r 09407f2a9764 -r 184af4c4e8fc src/graphs.lisp --- 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) diff -r 09407f2a9764 -r 184af4c4e8fc src/graphviz.lisp --- 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\"];~%" diff -r 09407f2a9764 -r 184af4c4e8fc src/huffman-trees.lisp --- 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: diff -r 09407f2a9764 -r 184af4c4e8fc src/markov.lisp --- 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")) diff -r 09407f2a9764 -r 184af4c4e8fc src/number-letters.lisp --- 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 diff -r 09407f2a9764 -r 184af4c4e8fc src/parenscript/compiler.lisp --- 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)) diff -r 09407f2a9764 -r 184af4c4e8fc src/parenscript/hello.paren --- 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 "!"))) diff -r 09407f2a9764 -r 184af4c4e8fc src/primes.lisp --- 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 diff -r 09407f2a9764 -r 184af4c4e8fc src/profiling.lisp --- 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 () diff -r 09407f2a9764 -r 184af4c4e8fc src/random-numbers.lisp --- 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 diff -r 09407f2a9764 -r 184af4c4e8fc src/sketch.lisp --- 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) diff -r 09407f2a9764 -r 184af4c4e8fc src/streams.lisp --- 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 diff -r 09407f2a9764 -r 184af4c4e8fc src/terrain/diamond-square.lisp --- 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) diff -r 09407f2a9764 -r 184af4c4e8fc src/utils.lisp --- 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) diff -r 09407f2a9764 -r 184af4c4e8fc src/zero-suppressed-decision-diagrams.lisp --- 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