Plaster
New
List
Login
common-lisp
default
anonymous
2023.06.19 10:27:23
(defpackage #:test-reader (:use #:cl) (:export #:reader)) (in-package #:test-reader) (defclass reader (eclector-access:client) ()) (defmethod eclector.reader:interpret-symbol ((client reader) input-stream package-indicator symbol-name internp) (if (eq package-indicator :current) (call-next-method) (call-next-method client input-stream "CL-USER" (concatenate 'string package-indicator ":" symbol-name) input-stream))) (eclector-access:enable (make-instance 'reader)) (print 'hello) (print 'hello:man) ;; => ;; HELLO ;; COMMON-LISP-USER::|HELLO:MAN|
Raw
Annotate
Repaste
Edit