Microsoft Windows [Version 10.0.14393] (c) 2016 Microsoft Corporation. All rights reserved. C:\Users\Tara>clisp i i i i i i i ooooo o ooooooo ooooo ooooo I I I I I I I 8 8 8 8 8 o 8 8 I \ `+' / I 8 8 8 8 8 8 \ `-+-' / 8 8 8 ooooo 8oooo `-__|__-' 8 8 8 8 8 | 8 o 8 8 o 8 8 ------+------ ooooo 8oooooo ooo8ooo ooooo 8 Welcome to GNU CLISP 2.49 (2010-07-07) Copyright (c) Bruno Haible, Michael Stoll 1992, 1993 Copyright (c) Bruno Haible, Marcus Daniels 1994-1997 Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998 Copyright (c) Bruno Haible, Sam Steingold 1999-2000 Copyright (c) Sam Steingold, Bruno Haible 2001-2010 Type :h and hit Enter for context help. [1]> (load "C:/Users/Tara/Desktop/416/cards.l") ;; Loading file C:\Users\Tara\Desktop\416\cards.l ... ;; Loaded file C:\Users\Tara\Desktop\416\cards.l T [2]> (new-suit 'heart) ((2 HEART) (3 HEART) (4 HEART) (5 HEART) (6 HEART) (7 HEART) (8 HEART) (9 HEART) (10 HEART) (JACK HEART) (QUEEN HEART) (KING HEART) (ACE HEART)) [3]> (new-deck) ((2 HEART) (3 HEART) (4 HEART) (5 HEART) (6 HEART) (7 HEART) (8 HEART) (9 HEART) (10 HEART) (JACK HEART) (QUEEN HEART) (KING HEART) (ACE HEART) (2 DIAMOND) (3 DIAMOND) (4 DIAMOND) (5 DIAMOND) (6 DIAMOND) (7 DIAMOND) (8 DIAMOND) (9 DIAMOND) (10 DIAMOND) (JACK DIAMOND) (QUEEN DIAMOND) (KING DIAMOND) (ACE DIAMOND) (2 CLUB) (3 CLUB) (4 CLUB) (5 CLUB) (6 CLUB) (7 CLUB) (8 CLUB) (9 CLUB) (10 CLUB) (JACK CLUB) (QUEEN CLUB) (KING CLUB) (ACE CLUB) (2 SPADE) (3 SPADE) (4 SPADE) (5 SPADE) (6 SPADE) (7 SPADE) (8 SPADE) (9 SPADE) (10 SPADE) (JACK SPADE) (QUEEN SPADE) (KING SPADE) (ACE SPADE)) [4]> (bye) Bye.