changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/obj/graph/read.lisp

changeset 698: 96958d3eb5b0
parent: 8252ee515756
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; obj/graph/read.lisp --- #G reader macro and readtable
     2 
     3 ;;
     4 
     5 ;;; Code:
     6 (in-package :obj/graph)
     7 
     8 (defun |#G-reader| (stream sub-char numarg)
     9   "Enable the Graph reader for the following form."
    10   (declare (ignore sub-char))
    11   (std/readtable::|#~-reader|)
    12 
    13 (defreadtable :graph
    14   "Graph notation readtable"
    15   (:merge :std)
    16   (:dispatch-macro-char #\# #\G #'|#G-reader|))