67daea4e67cb

Don't bother using uninterned keyword symbols

It's 2016, we've got enough memory to spare.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Thu, 27 Oct 2016 14:18:14 +0000
parents 80c4579fefce
children 06c36649ced9
branches/tags (none)
files package.lisp scully.asd src/gdl.lisp src/grounders/fluxplayer.lisp src/grounders/prolog.lisp src/players/random-ii.lisp src/players/random.lisp src/reasoners/prolog.lisp src/rule-trees.lisp src/zdd.lisp vendor/quickutils-package.lisp

Changes

--- a/package.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/package.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,96 +1,96 @@
-(defpackage #:scully.gdl
+(defpackage :scully.gdl
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:cl-arrows
-    #:temperance
-    #:scully.quickutils)
+    :cl
+    :losh
+    :iterate
+    :cl-arrows
+    :temperance
+    :scully.quickutils)
   (:export
-    #:read-gdl
-    #:load-rules
-    #:redump-gdl))
+    :read-gdl
+    :load-rules
+    :redump-gdl))
 
-(defpackage #:scully.rule-trees
+(defpackage :scully.rule-trees
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:cl-arrows
-    #:scully.quickutils)
+    :cl
+    :losh
+    :iterate
+    :cl-arrows
+    :scully.quickutils)
   (:export))
 
-(defpackage #:scully.zdd
+(defpackage :scully.zdd
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:cl-arrows
-    #:scully.quickutils)
+    :cl
+    :losh
+    :iterate
+    :cl-arrows
+    :scully.quickutils)
   (:export))
 
-(defpackage #:scully.reasoners.prolog
+(defpackage :scully.reasoners.prolog
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:cl-arrows
-    #:temperance
-    #:scully.quickutils)
+    :cl
+    :losh
+    :iterate
+    :cl-arrows
+    :temperance
+    :scully.quickutils)
   (:export
-    #:prolog-reasoner
-    #:make-prolog-reasoner
-    #:load-rules
-    #:initial-state
-    #:terminalp
-    #:next-state
-    #:legal-moves-for
-    #:percepts-for
-    #:roles
+    :prolog-reasoner
+    :make-prolog-reasoner
+    :load-rules
+    :initial-state
+    :terminalp
+    :next-state
+    :legal-moves-for
+    :percepts-for
+    :roles
     ))
 
-(defpackage #:scully.grounders.prolog
+(defpackage :scully.grounders.prolog
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:optima
-    #:cl-arrows
-    #:temperance
-    #:scully.quickutils)
+    :cl
+    :losh
+    :iterate
+    :optima
+    :cl-arrows
+    :temperance
+    :scully.quickutils)
   (:export
     ))
 
-(defpackage #:scully.grounders.fluxplayer
+(defpackage :scully.grounders.fluxplayer
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:cl-arrows
-    #:smug
-    #:scully.quickutils)
+    :cl
+    :losh
+    :iterate
+    :cl-arrows
+    :smug
+    :scully.quickutils)
   (:export
-    #:ground-gdl-file
-    #:ground-gdl-string))
+    :ground-gdl-file
+    :ground-gdl-string))
 
-(defpackage #:scully.players.random
+(defpackage :scully.players.random
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:cl-arrows
-    #:scully.quickutils
-    #:scully.reasoners.prolog)
+    :cl
+    :losh
+    :iterate
+    :cl-arrows
+    :scully.quickutils
+    :scully.reasoners.prolog)
   (:export
     ))
 
-(defpackage #:scully.players.random-ii
+(defpackage :scully.players.random-ii
   (:use
-    #:cl
-    #:losh
-    #:iterate
-    #:cl-arrows
-    #:scully.quickutils
-    #:scully.reasoners.prolog)
+    :cl
+    :losh
+    :iterate
+    :cl-arrows
+    :scully.quickutils
+    :scully.reasoners.prolog)
   (:export
     ))
--- a/scully.asd	Thu Oct 27 14:16:07 2016 +0000
+++ b/scully.asd	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(asdf:defsystem #:scully
+(asdf:defsystem :scully
   :name "scully"
   :description "A General Game Player for incomplete-information games"
 
@@ -7,16 +7,16 @@
   :license "MIT/X11"
   :version "1.0.0"
 
-  :depends-on (#:iterate
-               #:losh
-               #:temperance
-               #:hunchentoot
-               #:optima
-               #:smug
-               #:cl-dot
-               #:cl-algebraic-data-type
-               #:cl-arrows
-               #:cl-ggp)
+  :depends-on (:iterate
+               :losh
+               :temperance
+               :hunchentoot
+               :optima
+               :smug
+               :cl-dot
+               :cl-algebraic-data-type
+               :cl-arrows
+               :cl-ggp)
 
   :serial t
   :components ((:module "vendor" :serial t
--- a/src/gdl.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/gdl.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:scully.gdl)
+(in-package :scully.gdl)
 
 (defun read-gdl (filename)
   (let ((*package* (find-package :ggp-rules)))
--- a/src/grounders/fluxplayer.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/grounders/fluxplayer.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:scully.grounders.fluxplayer)
+(in-package :scully.grounders.fluxplayer)
 
 
 ;;;; Data ---------------------------------------------------------------------
--- a/src/grounders/prolog.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/grounders/prolog.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:scully.grounders.prolog)
+(in-package :scully.grounders.prolog)
 
 
 ;;;; Utils
--- a/src/players/random-ii.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/players/random-ii.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:scully.players.random-ii)
+(in-package :scully.players.random-ii)
 
 
 ;;;; Random Incomplete-Information Player -------------------------------------
--- a/src/players/random.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/players/random.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:scully.players.random)
+(in-package :scully.players.random)
 
 
 ;;;; Random Player ------------------------------------------------------------
--- a/src/reasoners/prolog.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/reasoners/prolog.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:scully.reasoners.prolog)
+(in-package :scully.reasoners.prolog)
 
 
 ;;;; Brute-Force Prolog Reasoner
--- a/src/rule-trees.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/rule-trees.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,4 +1,4 @@
-(in-package #:scully.rule-trees)
+(in-package :scully.rule-trees)
 
 
 (adt:defdata rule-tree
--- a/src/zdd.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/src/zdd.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -1,1 +1,1 @@
-(in-package #:scully.zdd)
+(in-package :scully.zdd)
--- a/vendor/quickutils-package.lisp	Thu Oct 27 14:16:07 2016 +0000
+++ b/vendor/quickutils-package.lisp	Thu Oct 27 14:18:14 2016 +0000
@@ -2,7 +2,7 @@
   (unless (find-package "SCULLY.QUICKUTILS")
     (defpackage "SCULLY.QUICKUTILS"
       (:documentation "Package that contains Quickutil utility functions.")
-      (:use #:cl))))
+      (:use :cl))))
 
 (in-package "SCULLY.QUICKUTILS")