* (ql:quickload :aeai-pattern)
To load "aeai-pattern":
  Load 1 ASDF system:
    aeai-pattern
; Loading "aeai-pattern"
.
Switching to the BALLAND2006 optimizer

(:AEAI-PATTERN)
* (in-package :aeai-pattern)
#<PACKAGE "AEAI-PATTERN">
* (peek-db)
NIL
* (put-db 1 2)
2
* (put-db 3 4)
4
* (peek-db)
NIL