;;;; -*- mode:Lisp; syntax:Common-Lisp; package:user -*- ;;;;
;;;; Copyright 1992 Patrick H. Winston.  All rights reserved.
;;;; Version 1.1, transferred from master disk on 21 Jan 93
;;;;
;;;; This file may reference other files containing copyrighted software.
;;;; Any restrictions on the use of such software are described in the
;;;; files containing that software.  This file may be freely copied as
;;;; long as this notice is kept intact.

;;;; Purpose: program support for the Appendix, Relational Databases

;;;; LOAD RDB SYSTEM
(load "rdb.lsp")

;;;; LOAD RDB TEST DATA
(load "beach.lsp")

;;;; RUN RDB COMMANDS

(db-show beach1)

(db-show (db-project beach1 over weight))

(db-extract-value beach1 weight)

(db-show beach2)

(db-show (db-combine beach1 beach2))

(db-show (db-combine-distinct beach1 beach1))

(db-show (db-select beach1 with height eql tall and weight eql average))

(db-show (db-project beach1 over hair))

(db-show (db-project-distinct beach1 over hair))

(db-show (db-join beach1 beach2 with height eql height))