Skip to content

Commit

Permalink
Remove dependency on alexandria, inconsistency reported by
Browse files Browse the repository at this point in the history
Eugene Ossintsev.
  • Loading branch information
hanshuebner committed Jan 14, 2010
1 parent ce9ed12 commit f61e521
Show file tree
Hide file tree
Showing 2 changed files with 11 additions and 3 deletions.
12 changes: 11 additions & 1 deletion encode.lisp
Expand Up @@ -15,8 +15,18 @@
specialized by applications to perform specific rendering. STREAM
defaults to *STANDARD-OUTPUT*."))

;; from alexandria
(defun plist-hash-table (plist &rest hash-table-initargs)
"Returns a hash table containing the keys and values of the property list
PLIST. Hash table is initialized using the HASH-TABLE-INITARGS."
(let ((table (apply #'make-hash-table hash-table-initargs)))
(do ((tail plist (cddr tail)))
((not tail))
(setf (gethash (car tail) table) (cadr tail)))
table))

(defparameter *char-replacements*
(alexandria:plist-hash-table
(plist-hash-table
'(#\\ "\\\\"
#\" "\\\""
#\/ "\\/"
Expand Down
2 changes: 0 additions & 2 deletions yason.asd
Expand Up @@ -23,8 +23,6 @@
:description "JSON parser/encoder"
:long-description ""

:depends-on (:alexandria)

:components ((:file "package")
(:file "encode" :depends-on ("package"))
(:file "parse" :depends-on ("package"))))

0 comments on commit f61e521

Please sign in to comment.