changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/obj/direction.lisp

changeset 698: 96958d3eb5b0
parent: 849bbe48e32d
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     1 ;;; obj/direction.lisp --- Physical and Metaphysical Directions
     2 
     3 ;;
     4 
     5 ;;; Commentary:
     6 
     7 ;;; Code:
     8 (in-package :obj/direction)
     9 
    10 (deftype direction-designator () '(or symbol string boolean number))
    11 
    12 (defclass direction () ())
    13 
    14 (defgeneric direction (self))
    15 (defgeneric (setf direction) (self))
    16 
    17 (defgeneric directions (self))
    18 (defgeneric (setf directions) (self))
    19 
    20 (defgeneric left (self))
    21 (defgeneric right (self))
    22 (defgeneric up (self))
    23 (defgeneric down (self))