Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Disarm reader macros.

  • Loading branch information...
commit 8f7bbc9f05a85fe449377f1959d1951c5376fc01 1 parent 4766d20
@orivej authored
Showing with 10 additions and 1 deletion.
  1. +10 −1 quickdist.lisp
View
11 quickdist.lisp
@@ -79,10 +79,19 @@ system-index-url: {base-url}/{name}/{version}/systems.txt
if (string= "asd" (pathname-type file)) collect file)
#'string< :key #'pathname-name))
+(defvar *safe-readtable*
+ (let ((readtable (copy-readtable)))
+ (flet ((read* (stream &rest ignore)
+ (declare (ignore ignore))
+ (read stream nil (values) t)))
+ (set-dispatch-macro-character #\# #\. #'read* readtable))
+ readtable))
+
(defun get-systems (path)
(with-open-file (s path)
(let* ((package (make-package (symbol-name (gensym "TMPPKG"))))
- (*package* package))
+ (*package* package)
+ (*readtable* *safe-readtable*))
(unwind-protect
(sort
(loop for form = (read s nil)
Please sign in to comment.
Something went wrong with that request. Please try again.