This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(new-rocket-car {:color "Blue"}) | |
;; -> (new-rocket-car {:color "Blue"}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(new-rocket-car {:color "Blue" :fuel 100 :name "Zoomer"}) | |
;; -> (new-rocket-car {:name "Zoomer", :fuel 100, :color "Blue"}) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defrecord2 RocketCar [color fuel name]) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns enhanced-record | |
(:require [clojure.contrib.str-utils2 :as str2]) | |
(:use [clojure.string :only (join)] | |
[clojure.contrib.pprint :only | |
(*simple-dispatch* use-method pprint-map pprint)])) | |
;;;; enhanced records | |
;; internal helper for maps |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#:enhanced-record-blog.Car{:year 2009, :make "Honda", :model "Fit"} | |
;; -> No dispatch macro for: : |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(merge (Car. 2010 "Honda" "Civic") {:year 2009 :model "Fit"}) | |
;; -> #:enhanced-record-blog.Car{:year 2009, :make "Honda", :model "Fit"} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(assoc (Car. 2010 "Honda" "Civic") :model "Accord") | |
;; -> #:enhanced-record-blog.Car{:year 2010, :make "Honda", :model "Accord"} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(Car. 2010 "Honda" nil) | |
;; -> #:enhanced-record-blog.Car{:year 2010, :make "Honda", :model nil} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(Car. 2010 "Honda" "Civic") | |
;; -> #:enhanced-record-blog.Car{:year 2010, :make "Honda", :model "Civic"} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(Car. 2010 "Honda" "Civic") |