Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Moved *ATOM-CACHE* definition to atom-cache.lisp.

  • Loading branch information...
commit 4ba91d071f033faf92d2c1fb4f40b7da5675ba06 1 parent fd73e97
@flambard authored
Showing with 3 additions and 3 deletions.
  1. +3 −0  atom-cache.lisp
  2. +0 −3  special-variables.lisp
View
3  atom-cache.lisp
@@ -9,6 +9,9 @@
:type '(array symbol (8 256))
:read-only t))
+(defvar *atom-cache* (make-atom-cache)
+ "An atom cache.")
+
(defun print-atom-cache (cache stream)
(print-unreadable-object (cache stream :type t :identity t)
(format stream "~a/2048"
View
3  special-variables.lisp
@@ -10,9 +10,6 @@
(defvar *remote-nodes* (list)
"Remote nodes connected to.")
-(defvar *atom-cache* nil
- "An atom cache.")
-
(defvar *cached-atoms* #()
"A vector of cached atoms.")
Please sign in to comment.
Something went wrong with that request. Please try again.