diff --git a/pcl/simple-streams/external-formats/ascii.lisp b/pcl/simple-streams/external-formats/ascii.lisp new file mode 100644 index 0000000000000000000000000000000000000000..6f14fac58b6e08bd47a8b2579d05542938cf6cc3 --- /dev/null +++ b/pcl/simple-streams/external-formats/ascii.lisp @@ -0,0 +1,19 @@ +;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: STREAM -*- +;;; +;;; ********************************************************************** +;;; This code was written by Raymond Toy and has been placed in the public +;;; domain. +;;; +(ext:file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/external-formats/ascii.lisp,v 1.1 2009/11/10 15:31:43 rtoy Exp $") + +(in-package "STREAM") + +(define-external-format :ascii (:size 1) + () + (octets-to-code (state input unput c) + `(let ((,c ,input)) + (values (if (< ,c #x80) ,c +replacement-character-code+) + 1)) + (code-to-octets (code state output) + `(,output (if (> ,code #x7F) #x3F ,code)))) +