;;; Recursive descent parser generator -- sample program ;;; ;;; (C) 2008 Gergő ÉRDI ;;; http://cactus.rulez.org/ (in-package :common-lisp-user) ;(eval-when (:compile-toplevel :load-toplevel :execute) ; (require :parser-recdesc)) (defpackage :cactus.parser-recdesc.example.compileerror (:use :common-lisp :cactus.parser-recdesc) (:export :test)) (in-package :cactus.parser-recdesc.example.compileerror) (defparser ambiguous-parser S (S (A) (B)) (A ("a") ("z")) (B ("b") ("z")))