shadowing

shadow.lisp

(progn 
  #.(set-macro-character #\[ (lambda (srm chr)
                             (declare (ignore chr))
                             (read-delimited-list #\] srm T)))
  [list 0
        1
        2
        #.(progn
            (set-macro-character #\[ (lambda (srm chr)
                                       (declare (ignore chr))
                                       (coerce (read-delimited-list #\] srm T)
                                       'vector)))
            (values))
        [3 4]])
→ (0 1 2 #(3 4))