|
|
@@ -61,7 +61,7 @@ |
|
|
|
(has-key? 'ParkingSpacesAvailable lot)) |
|
|
|
|
|
|
|
(define (only-has-handicap-spots? lot) |
|
|
|
(equal? '(4) (vector->list (value 'ParkingTypes lot)))) |
|
|
|
(equal? #(4) (value 'ParkingTypes lot))) |
|
|
|
|
|
|
|
(define (electric-car-lot? lot) |
|
|
|
(member? 3 (value 'ParkingTypes lot))) |
|
|
|