LispCons.h

   1 #if !defined(H_LISPCONS)
   2 #define H_LISPCONS
   3
   4 #include "LispNil.h"
   5 #include <utility>
   6
   7 namespace Lisp
   8 {
   9
  10 struct Cons : public LispObj
  11 {
  12
  13         void make(const PointerType& car, const PointerType& cdr)
  14         {
  15                 object.tag.setType(eConsObj);
  16                 object.values.resize(2);
  17                 object.values[0] = LispValue(car);
  18                 object.values[1] = LispValue(cdr);
  19         }
  20
  21         PointerType car() const
  22         {
  23                 return object.values[0];
  24         }
  25
  26
  27         PointerType cdr() const
  28         {
  29                 return object.values[1];
  30         }
  31 };
  32
  33
  34 }
  35
  36 #endif
  37