[Small-cl-src] Abusing shift operations for fun and profit...

;;; This is a creative abuse of symbol-macros ;;; Inspired by the question: ;;; How do you do: ;;; stdout << "Hi" << endl; ;;; in lisp? (defpackage "EVILHACK" (:use "CL")) (in-package "EVILHACK")

(defclass c++-stream () ((thestream :reader thestream :initarg :thestream)))

(defmethod (setf thestream) (new-value (obj c++-stream)) (print new-value (thestream obj)) obj)

(defmacro with-c++-semantics ((streamvar stream) &body body) (let ((cpstream (gensym))) `(let ((,cpstream (make-instance 'c++-stream :thestream ,stream))) (symbol-macrolet ((,streamvar (thestream ,cpstream))) ,@body))))

(with-c++-semantics (stdout *standard-output*) (shiftf stdout "Hello World!"))